diff --git a/src/ikarus.boot b/src/ikarus.boot
index eb68d91..61ac11d 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.bytevectors.ss b/src/ikarus.bytevectors.ss
index 7b495af..c45d41d 100644
--- a/src/ikarus.bytevectors.ss
+++ b/src/ikarus.bytevectors.ss
@@ -3,13 +3,13 @@
   (export make-bytevector bytevector-length bytevector-s8-ref
           bytevector-u8-ref bytevector-u8-set! bytevector-s8-set!
           bytevector-copy! u8-list->bytevector bytevector->u8-list
-          bytevector-fill! bytevector-copy)
+          bytevector-fill! bytevector-copy bytevector=?)
   (import 
     (except (ikarus) 
         make-bytevector bytevector-length bytevector-s8-ref
         bytevector-u8-ref bytevector-u8-set! bytevector-s8-set! 
         bytevector-copy! u8-list->bytevector bytevector->u8-list
-        bytevector-fill! bytevector-copy)
+        bytevector-fill! bytevector-copy bytevector=?)
     (ikarus system $fx)
     (ikarus system $pairs)
     (ikarus system $bytevectors))
@@ -138,6 +138,19 @@
              ($bytevector-set! dst i ($bytevector-u8-ref src i))
              (f src dst ($fxadd1 i) n)])))))
 
+  (define bytevector=? 
+    (lambda (x y)
+      (unless (bytevector? x)
+        (error 'bytevector=? "~s is not a bytevector" x))
+      (unless (bytevector? y)
+        (error 'bytevector=? "~s is not a bytevector" y))
+      (let ([n ($bytevector-length x)])
+        (and ($fx= n ($bytevector-length y))
+             (let f ([x x] [y y] [i 0] [n n])
+               (or ($fx= i n)
+                   (and ($fx= ($bytevector-u8-ref x i)
+                              ($bytevector-u8-ref y i))
+                        (f x y ($fxadd1 i) n))))))))
 
   (define bytevector-copy!
     (lambda (src src-start dst dst-start k) 
diff --git a/src/makefile.ss b/src/makefile.ss
index c60b7d3..cfde1b5 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -282,6 +282,7 @@
     [bytevector-copy!        i]
     [bytevector-copy         i]
     [bytevector-fill!        i]
+    [bytevector=?            i]
 
     [for-each                i r]
     [map                     i r]