diff --git a/lib/chibi/modules.scm b/lib/chibi/modules.scm
index 0d1a4fe2..34c0ecd4 100644
--- a/lib/chibi/modules.scm
+++ b/lib/chibi/modules.scm
@@ -126,7 +126,7 @@
        #t))
 
 (define (module-defines? name mod var-name)
-  (let lp ((ls (module-ast mod)))
+  (let lp ((ls (module-ast (analyze-module name))))
     (and (pair? ls)
          (or (and (set? (car ls))
                   (eq? var-name (ref-name (set-var (car ls)))))