diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index d476ddef9..1bd658787 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -129,7 +129,7 @@
           ;; write bindings and source debugging info
           (emit-bindings #f ids vars allocation emit-code)
           (if (lambda-src x)
-              (emit-code (make-glil-src (lambda-src x))))
+              (emit-code (make-glil-source (lambda-src x))))
 
           ;; copy args to the heap if necessary
           (let lp ((in vars) (n 0))