diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 6162cc35..78845554 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -110,6 +110,7 @@
     cell-get? 
     cell-get->cell 
     expand 
+    expand-lambda-body
     let=>lambda 
     isolate-globals 
     has-global? 
@@ -823,6 +824,10 @@
     (else
       (error "unknown exp: " exp))))
 
+;; Nicer interface to expand-body
+(define (expand-lambda-body exp env)
+  (expand-body '() exp env))
+
 ;; Helper to expand a lambda body, so we can splice in any begin's
 (define (expand-body result exp env)
   (cond