Add close procedure before output bytevectors' custom stuff.

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index a7723631304351a322278121e4e8a9f828cc19d8..2a7efac42ded6ddcabdd0199f7b9ae4798d98dbf 100644 (file)
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -25,7 +25,7 @@ USA.
 |#
 
 ;;;; Binary I/O ports
-;;; package: (runtime port)
+;;; package: (runtime binary-port)
 
 (declare (usual-integrations))
 \f
@@ -148,6 +148,7 @@ USA.
          (bytevector-copy! bytevector index bv bs be)
          (set! index index*)
          (fix:- be bs)))
+      (default-object)
       bytevector-output-port-tag
       (lambda ()
        (bytevector-copy bytevector 0 index)))