Index: mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.21
diff -u -r1.21 mime.tcl
--- mime.tcl	27 Feb 2002 21:33:51 -0000	1.21
+++ mime.tcl	8 May 2002 16:47:11 -0000
@@ -3502,7 +3502,8 @@
 	error "malformed word-encoded expression '$encoded'"
     }
 
-    if {![info exists reversemap($charset)]} {
+    set enc [reversemapencoding $charset]
+    if {[string equal "" $enc]} {
 	error "unknown charset '$charset'"
     }
 
@@ -3533,7 +3534,7 @@
 	}
     }
 
-    return [list $reversemap($charset) $method $result]
+    return [list $enc $method $result]
 }
 
 # mime::field_decode --
