diff --git a/resources/scm/scheme/base.scm b/resources/scm/scheme/base.scm
index fb9938e..5f598fa 100644
--- a/resources/scm/scheme/base.scm
+++ b/resources/scm/scheme/base.scm
@@ -5,5 +5,5 @@
   (begin
     (define-syntax when
       (syntax-rules ()
-        ((_ test body)
-         (if test (begin body)))))))
+        ((_ test body ...)
+         (if test (begin body ...)))))))
diff --git a/src/expand/core.clj b/src/expand/core.clj
index a0622de..56191c8 100644
--- a/src/expand/core.clj
+++ b/src/expand/core.clj
@@ -411,7 +411,7 @@
     (-> (slurp *in*)
         (scm/read-syntax :library? true :throw? true)
         expand-library
-        library-syntax->datum
+        #_library-syntax->datum
         library->datum
         clojure.pprint/pprint)))
 
diff --git a/t.scm b/t.scm
index 0f3061d..7f59851 100644
--- a/t.scm
+++ b/t.scm
@@ -6,4 +6,9 @@
                           (if test (begin body ...))))))
       (when #t
         (display "blah")
-        (newline)))))
+        (newline)))
+    (let ((x 123))
+      (let-syntax ((m (syntax-rules ()
+                        ((_) x))))
+        (lambda (x)
+          (m))))))