diff --git a/module/language/cps2.scm b/module/language/cps2.scm
index 6476c2dd0..76219f376 100644
--- a/module/language/cps2.scm
+++ b/module/language/cps2.scm
@@ -310,7 +310,7 @@
     (('values arg ...)
      (build-exp ($values arg)))
     (('prompt escape? tag handler)
-     (build-cps-exp ($prompt escape? tag handler)))
+     (build-exp ($prompt escape? tag handler)))
     (_
      (error "unexpected cps" exp))))