From dc471aaeddf7fdd8ecf96ebf93a63ac8c03bc899 Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Fri, 20 Jan 2012 18:16:27 +0900
Subject: [PATCH] blowfish fixes - 7

---
 scsh/encryption/dictionary.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/encryption/dictionary.scm b/scsh/encryption/dictionary.scm
index bf18c59..9cd70d0 100644
--- a/scsh/encryption/dictionary.scm
+++ b/scsh/encryption/dictionary.scm
@@ -40,7 +40,7 @@
       (do ((j 0 (+ j 1))
            (l *dict (cdr l)))
           ((= j i)
-           (cadar l));;returns value
+           (car l));;returns value
         ))
 
     (define (set-with-index i value) ;; set value