diff --git a/src/ikarus.boot b/src/ikarus.boot
index 62cdb0d..c9b002e 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index 1c472c6..ba365ce 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -5203,14 +5203,6 @@
 (primitive-set! 'compile-core-expr-to-port compile-core-expr-to-port)
 
 (primitive-set! 'assembler-output (make-parameter #f))
-(primitive-set! 'compile
-  (lambda (x)
-    (let ([code 
-           (if (code? x)
-               x
-               (compile-expr->code x))])
-      (let ([proc ($code->closure code)])
-        (proc)))))
 
 (primitive-set! 'eval-core
   (lambda (x) ((compile-core-expr x))))
@@ -5220,6 +5212,17 @@
 
 #!eof junk
 
+
+
+(primitive-set! 'compile
+  (lambda (x)
+    (let ([code 
+           (if (code? x)
+               x
+               (compile-expr->code x))])
+      (let ([proc ($code->closure code)])
+        (proc)))))
+
 (define compile-file
   (lambda (input-file output-file . rest)
     (let ([ip (open-input-file input-file)]
diff --git a/src/library-manager.ss b/src/library-manager.ss
index eeb54c1..9f24a45 100644
--- a/src/library-manager.ss
+++ b/src/library-manager.ss
@@ -400,19 +400,15 @@
       [error-handler error-handler-label (core-prim .  error-handler)]
       [interrupt-handler interrupt-handler-label (core-prim .  interrupt-handler)]
       [exit       exit-label       (core-prim . exit)]
-      [compile    compile-label    (core-prim . compile)]
-      [compile-core-expr-to-port    compile-core-expr-to-port-label    (core-prim . compile-core-expr-to-port)]
-      ;[eval       eval-label       (core-prim . eval)]
+      [compile-core-expr-to-port  compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
       [eval-core  eval-core-label  (core-prim . eval-core)]
       [load       load-label       (core-prim . load)]
-      ;[load-handler       load-handler-label       (core-prim . load-handler)]
       [assembler-output       assembler-output-label       (core-prim . assembler-output)]
       [expand       expand-label       (core-prim . expand)]
       [fasl-write       fasl-write-label       (core-prim . fasl-write)]
       [new-cafe   new-cafe-label   (core-prim . new-cafe)]
       [command-line-arguments command-line-arguments-label (core-prim .  command-line-arguments)]
       [list*->code*       list*->code*-label       (core-prim . list*->code*)]
-      ;[primitive-location        primitive-location-label        (core-prim .  primitive-location)]
       [install-library         install-library-label         (core-prim . install-library)]
       ;;; record/mid-level
       [record?                 record?-label                 (core-prim . record?)]