From 65af35e5c610e9bc2d59ba4212c474e66fa4c769 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 24 Feb 2017 13:23:34 -0700
Subject: [PATCH] Fix type test in bytevector->hexadecimal.

---
 src/runtime/bytevector.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/bytevector.scm b/src/runtime/bytevector.scm
index fd0e55ebc..9367a8015 100644
--- a/src/runtime/bytevector.scm
+++ b/src/runtime/bytevector.scm
@@ -379,7 +379,7 @@ USA.
 (define (bytevector->hexadecimal bytes)
   (define-integrable (hex-char k)
     (string-ref "0123456789ABCDEF" (fix:and k #x0F)))
-  (guarantee string? bytes 'bytevector->hexadecimal)
+  (guarantee bytevector? bytes 'bytevector->hexadecimal)
   (let ((n (bytevector-length bytes))
 	(builder (string-builder)))
     (do ((i 0 (fix:+ i 1)))
-- 
2.25.1