diff --git a/module/language/cps/verify.scm b/module/language/cps/verify.scm
index 4d24ada2f..0396df266 100644
--- a/module/language/cps/verify.scm
+++ b/module/language/cps/verify.scm
@@ -43,8 +43,7 @@
         (add-env (cdr new) (add (car new) seen env))))
 
   (define (add-vars new env)
-    (unless (and-map (lambda (v) (or (symbol? v) (exact-integer? v)))
-                     new)
+    (unless (and-map exact-integer? new)
       (error "bad vars" new))
     (add-env new seen-vars env))