diff --git a/trans.scm b/trans.scm
index bb6e1b59..1661835a 100644
--- a/trans.scm
+++ b/trans.scm
@@ -1612,9 +1612,7 @@
                 ,@(let ((k (gensym 'k))
                         (r (gensym 'r)))
                    (cps (car (define->exp ast)) 'unused))))
-            (cps ast
-               (let ((r (gensym 'r)))
-                   `(lambda (,r) (%halt ,r)))))))
+            (cps ast '%halt))))
     ast-cps))
 
 ;; Closure-conversion.