diff --git a/src/ikarus.boot b/src/ikarus.boot
index fbcf709..64e5575 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcore.ss b/src/libcore.ss
index 209411a..6ba8399 100644
--- a/src/libcore.ss
+++ b/src/libcore.ss
@@ -336,20 +336,20 @@ reference-implementation:
  
 (primitive-set! 'symbol? (lambda (x) (symbol? x)))
   
-(primitive-set! 'primitive?
-  (lambda (x)
-    (unless (symbol? x)
-      (error 'primitive? "~s is not a symbol" x))
-    (procedure? (primitive-ref x))))
-
-(primitive-set! 'primitive-ref
-  (lambda (x)
-    (unless (symbol? x)
-      (error 'primitive-ref "~s is not a symbol" x))
-    (let ([v (primitive-ref x)])
-      (unless (procedure? v)
-        (error 'primitive-ref "~s is not a primitive" x))
-      v)))
+;(primitive-set! 'primitive?
+;  (lambda (x)
+;    (unless (symbol? x)
+;      (error 'primitive? "~s is not a symbol" x))
+;    (procedure? (primitive-ref x))))
+;
+;(primitive-set! 'primitive-ref
+;  (lambda (x)
+;    (unless (symbol? x)
+;      (error 'primitive-ref "~s is not a symbol" x))
+;    (let ([v (primitive-ref x)])
+;      (unless (procedure? v)
+;        (error 'primitive-ref "~s is not a primitive" x))
+;      v)))
 
 (primitive-set! 'primitive-set!
   (lambda (x v)
diff --git a/src/library-manager.ss b/src/library-manager.ss
index e02ec4a..7d03fe6 100644
--- a/src/library-manager.ss
+++ b/src/library-manager.ss
@@ -505,8 +505,6 @@
       [$make-call-with-values-procedure $make-cwv-procedure (core-prim . $make-call-with-values-procedure)]
       [$make-values-procedure $make-values-procedure (core-prim . $make-values-procedure)]
       [primitive-set! primitive-set!-label (core-prim . primitive-set!)]
-      [primitive? primitive?-label (core-prim .  primitive?)]
-      [primitive-ref primitive-ref-label (core-prim .  primitive-ref)]
       [$$apply     $$apply-label    (core-prim . $$apply)]
       [$arg-list     $arg-list-label    (core-prim . $arg-list)]
       [$interrupted? $interrupted?-label (core-prim .  $interrupted?)]