diff --git a/src/ikarus.boot b/src/ikarus.boot
index 8dcce2e..b36a7e3 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index 7f9ed13..36c1843 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -5290,15 +5290,6 @@
   (lambda (x)
     (compile x)))
 
-(primitive-set! 'compile-time-core-eval
-  (make-parameter 
-    (lambda (x) 
-      (parameterize ([current-expand (lambda (x) x)])
-        (compile x)))
-    (lambda (f)
-      (unless (procedure? f) 
-        (error 'compile-time-core-eval "~s is not a procedure" f))
-      f)))
 
 ))