diff --git a/lib/ikarus.boot b/lib/ikarus.boot
index cc267a4..7063f0b 100644
Binary files a/lib/ikarus.boot and b/lib/ikarus.boot differ
diff --git a/lib/libcompile.ss b/lib/libcompile.ss
index 705b4c5..da35d37 100644
--- a/lib/libcompile.ss
+++ b/lib/libcompile.ss
@@ -106,7 +106,6 @@
     [$vector-length     1   value]
     [$vector-ref        2   value]
     [$vector-set!       3   effect]
-    [$vector-memq       2   value]
     ;;; strings
     [$make-string       1   value]
     [$string          any   value]
diff --git a/lib/libcore.ss b/lib/libcore.ss
index 206b654..4b05625 100644
--- a/lib/libcore.ss
+++ b/lib/libcore.ss
@@ -866,18 +866,6 @@ reference-implementation:
      (lambda (x ls)
        (race ls ls ls x))))
 
-(primitive-set! 'vector-memq
-  (lambda (x v)
-    (if (vector? v)
-        (let f ([x x] [v v] [n ($vector-length v)] [i 0])
-          (and ($fx< i n)
-               (or (eq? x ($vector-ref v i))
-                   (f x v n ($fxadd1 i)))))
-        (error 'vector-memq "~s is not a vector" v))))
-
-#|BUG: memv should be defined in terms of eqv? now that we have
-bignums.|#
-
 (primitive-set! 'memv
   (letrec ([race
             (lambda (h t ls x)
@@ -901,8 +889,6 @@ bignums.|#
        (race ls ls ls x))))
 
 
-(primitive-set! 'vector-memv vector-memq)
- 
 (primitive-set! 'list->string
   (letrec ([race
             (lambda (h t ls n)
diff --git a/lib/makefile.ss b/lib/makefile.ss
index 0a44260..7bf7e65 100755
--- a/lib/makefile.ss
+++ b/lib/makefile.ss
@@ -142,7 +142,7 @@ $closure-code
     $set-tcbucket-tconc!  $tcbucket-dlink-prev $tcbucket-dlink-next
     $set-tcbucket-dlink-prev!  $set-tcbucket-dlink-next!  call/cf
     trace-symbol! untrace-symbol! make-traced-procedure
-    fixnum->string vector-memq vector-memv
+    fixnum->string 
 
     ;;; TODO: must open-code