Fix incorrect caller names.

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index 3274156cc5dc69eeb5844ae1a6c73297681eb9bc..f422e9304fb0de9277af903603ce5ca1b1445ee1 100644 (file)
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -444,17 +444,17 @@ USA.
         (if (default-object? end)
             (bytevector-length bytevector)
             (begin
-              (guarantee index-fixnum? end 'read-bytevector!)
+              (guarantee index-fixnum? end 'write-bytevector)
               (if (not (fix:<= end (bytevector-length bytevector)))
-                  (error:bad-range-argument end 'read-bytevector))
+                  (error:bad-range-argument end 'write-bytevector))
               end))))
     (let ((start
           (if (default-object? start)
               0
               (begin
-                (guarantee index-fixnum? start 'read-bytevector!)
+                (guarantee index-fixnum? start 'write-bytevector)
                 (if (not (fix:<= start end))
-                    (error:bad-range-argument start 'read-bytevector!))
+                    (error:bad-range-argument start 'write-bytevector))
                 start)))
          (bv (buffer-bytes ob)))