Fix bug from recent change.

diff --git a/src/runtime/blowfish.scm b/src/runtime/blowfish.scm
index 940e5ee9d449c5645412aa1ee2258b21957e93ad..64aefb2253f0ece1d1e3c72efe98856cd2e6aebb 100644 (file)
--- a/src/runtime/blowfish.scm
+++ b/src/runtime/blowfish.scm
@@ -38,7 +38,8 @@ USA.
 
 (define (blowfish-available?)
   (load-library-object-file "prbfish" #f)
-  (implemented-primitive-procedure? blowfish-cfb64))
+  (implemented-primitive-procedure?
+   (ucode-primitive blowfish-cfb64-substring-v2 9)))
 \f
 (define (blowfish-encrypt-port input output key init-vector encrypt?)
   ;; Assumes that INPUT is in blocking mode.
@@ -74,7 +75,7 @@ USA.
                  #x100000)
               (random #x100000))
            (quotient t #x100)))
-       ((fix:= 8 i))
+       ((not (fix:< i 8)))
       (bytevector-u8-set! iv i (remainder t #x100)))
     iv))