diff --git a/module/language/cps/verify.scm b/module/language/cps/verify.scm
index 0276d1d8a..bb2e85751 100644
--- a/module/language/cps/verify.scm
+++ b/module/language/cps/verify.scm
@@ -124,7 +124,7 @@
       (($ $prim (? symbol? name))
        #t)
       (($ $fun)
-       (visit-fun fun k-env v-env))
+       (visit-fun exp k-env v-env))
       (($ $call (? symbol? proc) ((? symbol? arg) ...))
        (check-var proc v-env)
        (for-each (cut check-var <> v-env) arg))