diff --git a/scheme/ikarus.equal.ss b/scheme/ikarus.equal.ss
index e10d8de..bd36df8 100644
--- a/scheme/ikarus.equal.ss
+++ b/scheme/ikarus.equal.ss
@@ -87,6 +87,7 @@
                                     (- k 1))])
                            (and k (f (+ i 1) k))))))))]
       [(string? x) (and (string? y) (string=? x y) k)]
+      [(bytevector? x) (and (bytevector? y) (bytevector=? x y) k)]
       [else (and (eqv? x y) k)]))
 
   (define (interleave? x y k)
@@ -122,6 +123,7 @@
                                               k)])
                                    (and k (f (+ i 1) k)))))))))]
           [(string? x) (and (string? y) (string=? x y) k)]
+          [(bytevector? x) (and (bytevector? y) (bytevector=? x y) k)]
           [else (and (eqv? x y) k)]))
       (define (fast? x y k)
         (let ([k (- k 1)])
@@ -143,6 +145,7 @@
                                             k)])
                                  (and k (f (+ i 1) k))))))))]
             [(string? x) (and (string? y) (string=? x y) k)]
+            [(bytevector? x) (and (bytevector? y) (bytevector=? x y) k)]
             [else (and (eqv? x y) k)])))
       (and (e? x y k) #t)))
 
diff --git a/scheme/last-revision b/scheme/last-revision
index 3d068d5..e889d75 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1672
+1673