diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index 10c1d0bd6..50a0fb80b 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -502,7 +502,7 @@
   (refs binding-info-refs)  ;; (GENSYM ...)
   (locs binding-info-locs)) ;; (LOCATION ...)
 
-(define (report-unused-variables tree)
+(define (report-unused-variables tree env)
   "Report about unused variables in TREE.  Return TREE."
 
   (define (dotless-list lst)
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index d13cf7ca5..a78eaa6ce 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -53,11 +53,11 @@
     (or (and=> (memq #:warnings opts) cadr)
         '()))
 
-  ;; Go throught the warning passes.
+  ;; Go through the warning passes.
   (for-each (lambda (kind)
                 (let ((warn (assoc-ref %warning-passes kind)))
                   (and (procedure? warn)
-                       (warn x))))
+                       (warn x e))))
             warnings)
 
   (let* ((x (make-lambda (tree-il-src x) '() '() '() x))