diff --git a/module/language/scheme/translate.scm b/module/language/scheme/translate.scm
index 7b1e6daab..20164b72a 100644
--- a/module/language/scheme/translate.scm
+++ b/module/language/scheme/translate.scm
@@ -267,6 +267,11 @@
               (make-ghil-lambda env l vars rest meta
                                 (trans-body env l body))))))))
 
+    ;; FIXME not hygienic
+    (delay
+     ((,expr)
+      (retrans `(make-promise (lambda () ,expr)))))
+
     (eval-case
      (,clauses
       (retrans