diff --git a/src/ikarus.boot b/src/ikarus.boot
index 779e8d5..e96991d 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.boot.back b/src/ikarus.boot.back
index c76236a..779e8d5 100644
Binary files a/src/ikarus.boot.back and b/src/ikarus.boot.back differ
diff --git a/src/libcore.ss b/src/libcore.ss
index 4ad4917..914ae11 100644
--- a/src/libcore.ss
+++ b/src/libcore.ss
@@ -851,7 +851,7 @@
                    (f x v n ($fxadd1 i)))))
         (error 'vector-memq "~s is not a vector" v))))
 
-(primitive-set! 'memv memq)
+(primitive-set! 'memv memq) ; INCORRECT, SHOULD USE EQV
 (primitive-set! 'vector-memv vector-memq)
  
 (primitive-set! 'list->string
@@ -1198,6 +1198,7 @@
                (let ([n ($string-length x)])
                  (and ($fx= n ($string-length y))
                       (string-loop x y 0 n))))]
+         [(number? x) (and (number? y) (= x y))]
          [else #f])))
    (primitive-set! 'equal? equal?))