From 2964e212782873c6bceca4de5e4180fbfc105df0 Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Fri, 20 Jan 2012 21:22:02 +0900
Subject: [PATCH] blowfish fixes - 27

---
 scsh/encryption/blowfish.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scsh/encryption/blowfish.scm b/scsh/encryption/blowfish.scm
index 41ae4be..2c20dac 100644
--- a/scsh/encryption/blowfish.scm
+++ b/scsh/encryption/blowfish.scm
@@ -1386,6 +1386,8 @@
       (display "pass 3")(newline)
       (if (not (eq? buffer plain))
           (display "Blowfish selftest failed - 1."))
+      (display "pass 4")(newline)
+      (blowfish-decrypt bc bufferanswer buffer)
 
       (blowfish-set-key bc key3)
       (blowfish-encrypt-block bc buffer plain3) ;; should give