diff --git a/src/ikarus.boot b/src/ikarus.boot
index 7627e11..9bcea1d 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.code-objects.ss b/src/ikarus.code-objects.ss
index ea75a93..7b5c53a 100644
--- a/src/ikarus.code-objects.ss
+++ b/src/ikarus.code-objects.ss
@@ -20,22 +20,22 @@
 
   (define code-reloc-vector
     (lambda (x)
-      (unless ($code? x) (error 'code-reloc-vector "~s is not a code" x))
+      (unless (code? x) (error 'code-reloc-vector "~s is not a code" x))
       ($code-reloc-vector x)))
 
   (define code-freevars
     (lambda (x)
-      (unless ($code? x) (error 'code-closure-size "~s is not a code" x))
+      (unless (code? x) (error 'code-closure-size "~s is not a code" x))
       ($code-freevars x)))
 
   (define code-size
     (lambda (x)
-      (unless ($code? x) (error 'code-size "~s is not a code" x))
+      (unless (code? x) (error 'code-size "~s is not a code" x))
       ($code-size x)))
 
   (define code-set!
     (lambda (x i v)
-      (unless ($code? x) (error 'code-set! "~s is not a code" x))
+      (unless (code? x) (error 'code-set! "~s is not a code" x))
       (unless (and (fixnum? i)
                    ($fx>= i 0)
                    ($fx< i ($code-size x)))
@@ -48,7 +48,7 @@
 
   (define code-ref
     (lambda (x i)
-      (unless ($code? x) (error 'code-ref "~s is not a code" x))
+      (unless (code? x) (error 'code-ref "~s is not a code" x))
       (unless (and (fixnum? i)
                    ($fx>= i 0)
                    ($fx< i ($code-size x)))
@@ -57,7 +57,7 @@
 
   (define set-code-reloc-vector!
     (lambda (x v)
-      (unless ($code? x) 
+      (unless (code? x) 
         (error 'set-code-reloc-vector! "~s is not a code" x))
       (unless (vector? v)
         (error 'set-code-reloc-vector! "~s is not a vector" v))
@@ -65,7 +65,7 @@
 
   (define code->thunk
     (lambda (x)
-      (unless ($code? x)
+      (unless (code? x)
         (error 'code->thunk "~s is not a a code object" x))
       (unless ($fxzero? ($code-freevars x))
         (error 'code->thunk "~s has free variables" x))
diff --git a/src/makefile.ss b/src/makefile.ss
index fcb7ece..e47bcf0 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -485,7 +485,6 @@
       [$set-port-output-size!   $ports]
       ; (ikarus system $codes)
       [$closure-code            $codes]
-      [$code?                   $codes]
       [$code->closure           $codes]
       [$code-reloc-vector       $codes]
       [$code-freevars           $codes]