diff --git a/src/ikarus.boot b/src/ikarus.boot
index cccff95..18330df 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libsyntax.ss b/src/libsyntax.ss
index 87620a5..4a6c339 100644
--- a/src/libsyntax.ss
+++ b/src/libsyntax.ss
@@ -902,6 +902,7 @@
       [output-port-name        output-port-name-label        (core-prim .  output-port-name)]
       [open-input-file  open-input-file-label  (core-prim .  open-input-file)]
       [with-input-from-file  with-input-from-file-label  (core-prim .  with-input-from-file)]
+      [with-output-to-file  with-output-to-file-label  (core-prim .  with-output-to-file)]
       [open-output-file  open-output-file-label  (core-prim .  open-output-file)]
       [open-output-string  open-output-string-label  (core-prim .  open-output-string)]
       [get-output-string  get-output-string-label  (core-prim .  get-output-string)]
diff --git a/src/makefile.ss b/src/makefile.ss
index 3abd12d..b584c3b 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -252,7 +252,11 @@
     (apply append (map (lambda (x) (expand-library (car x))) ls)))
   (printf "expanding ...\n")
   (let ([core* (expand-all scheme-library-files)])
-  (printf "compiling ...\n")
+ ;   (with-output-to-file "ikarus.pp"
+ ;     (lambda ()
+ ;       (for-each pretty-print core*))
+ ;     'replace)
+    (printf "compiling ...\n")
     (let ([p (open-output-file "ikarus.boot" 'replace)])
       (for-each 
         (lambda (x) (compile-core-expr-to-port x p))