Index: blowfish.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/blowfish/blowfish.tcl,v
retrieving revision 1.7
diff -u -r1.7 blowfish.tcl
--- blowfish.tcl	2 Oct 2006 20:58:52 -0000	1.7
+++ blowfish.tcl	20 Feb 2007 19:59:10 -0000
@@ -504,7 +504,7 @@
 # Fileevent handler for chunked file reading.
 #
 proc ::blowfish::Chunk {Key in {out {}} {chunksize 4096} {pad \0}} {
-    upvar #0 $token state
+    upvar #0 $Key state
     
     if {[eof $in]} {
         fileevent $in readable {}
