diff --git a/src/ikarus.boot b/src/ikarus.boot
index 6ca16dc..1ca5552 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.core.ss b/src/ikarus.core.ss
index 44d375b..c2d9b8d 100644
--- a/src/ikarus.core.ss
+++ b/src/ikarus.core.ss
@@ -210,9 +210,6 @@
       x)))
 
 
-(primitive-set! 'bwp-object?
-  (lambda (x)
-    (bwp-object? x)))
 
 (primitive-set! 'weak-cons
   (lambda (a d)
diff --git a/src/ikarus.predicates.ss b/src/ikarus.predicates.ss
index be42475..c027743 100644
--- a/src/ikarus.predicates.ss
+++ b/src/ikarus.predicates.ss
@@ -2,25 +2,26 @@
 (library (ikarus predicates)
 
   (export fixnum? flonum? bignum? number? complex? real? rational?
-          integer? exact? eof-object? immediate? boolean? char?
-          vector? string? procedure? null? pair? symbol? not 
+          integer? exact? eof-object? bwp-object? immediate? boolean?
+          char? vector? string? procedure? null? pair? symbol? not 
           eq? eqv? equal?) 
 
   (import 
 
     (except (ikarus) fixnum? flonum? bignum? number? complex? real?
-            rational? integer? exact? eof-object?  immediate?
+            rational? integer? exact? eof-object? bwp-object? immediate?
             boolean?  char?  vector?  string?  procedure?  null?
             pair? symbol? not eq? eqv? equal?)
     (only (scheme) $fxadd1 $vector-ref $fx= $char= $string-ref
           $string-length $vector-length $car $cdr)
     (rename (only (ikarus) fixnum? flonum? bignum? eof-object?
-              immediate? boolean? char? vector? string? procedure? 
-              null? pair? symbol? eq?)
+                  bwp-object? immediate? boolean? char? vector? string?
+                  procedure? null? pair? symbol? eq?)
             (fixnum? sys:fixnum?)
             (flonum? sys:flonum?)
             (bignum? sys:bignum?)
             (eof-object? sys:eof-object?)
+            (bwp-object? sys:bwp-object?)
             (immediate? sys:immediate?)
             (boolean? sys:boolean?)
             (char? sys:char?)
@@ -79,6 +80,7 @@
          (error 'exact? "~s is not a number" x)])))
   
   (define eof-object? (lambda (x) (sys:eof-object? x)))
+  (define bwp-object? (lambda (x) (sys:bwp-object? x)))
   (define immediate? (lambda (x) (sys:immediate? x)))
   (define boolean? (lambda (x) (sys:boolean? x)))
   (define char? (lambda (x) (sys:char? x)))