diff --git a/transforms.scm b/transforms.scm
index cf8e50f7..b91df488 100644
--- a/transforms.scm
+++ b/transforms.scm
@@ -81,7 +81,7 @@
       (if (null? (cdr exp)) (error "empty when" exp))
       (if (null? (cddr exp)) (error "no when body" exp))
       `(if ,(cadr exp)
-           ((lambda () ,(caddr exp)))
+           ((lambda () ,@(cddr exp)))
            #f)))
     (cons 'cond
           (lambda (expr rename compare)