diff --git a/src/ikarus.boot b/src/ikarus.boot
index 17960ae..6553167 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libtoplevel.ss b/src/libtoplevel.ss
index 1493e2c..0be6a45 100644
--- a/src/libtoplevel.ss
+++ b/src/libtoplevel.ss
@@ -9,15 +9,10 @@
   (import (scheme))
 
   (define bar 'i-am-an-exported-primitive-named-foo)
-  (define sc-expand
-    (lambda (x)
-      (if (and (pair? x) (equal? (car x) "noexpand"))
-          (cadr x)
-          (chi-top-library x))))
 
   (primitive-set! 'expand
     (lambda (x)
-      (sc-expand x)))
+      (chi-top-library x)))
 
   (let-values ([(files script args)
                 (let f ([args (command-line-arguments)])