@@ 271,8 271,7 @@ define : pad bv blocksize
        ;; calculate the exact padded length so the padded bytevector
        ;; can be returned without changes. This allows ignoring the
        ;; size info for the padded bytevector.
-       define target-length
-           + original-length : - blocksize len-mod-size
+       define target-length : + original-length : - blocksize len-mod-size
        define padded : make-bytevector target-length 0
        ;; prepare the padded bytevector
        bytevector-copy! bv 0 padded 0 original-length