diff --git a/module/system/base/language.scm b/module/system/base/language.scm
index c979d5cef..41d577b53 100644
--- a/module/system/base/language.scm
+++ b/module/system/base/language.scm
@@ -24,10 +24,12 @@
   :use-syntax (system base syntax)
   :use-module (system base module)
   :use-module (system il compile)
+  :use-module (system vm core)
   :use-module (system vm assemble)
   :use-module (ice-9 regex)
   :export (define-language lookup-language
-	    read-in compile-in print-in compile-file-in load-file-in))
+	    read-in compile-in print-in compile-file-in load-file-in
+	    hacked-load-in))
 
 
 ;;;
@@ -106,6 +108,10 @@
 	  (uniform-vector-read! bytes p)
 	  bytes)))))
 
+(define (hacked-load-in file lang)
+  ((vm-load (make-vm)
+	    (load-file-in file (global-ref 'user) (lookup-language lang)))))
+
 (define (object-file-name file)
   (let ((m (string-match "\\.[^.]*$" file)))
     (string-append (if m (match:prefix m) file) ".go")))