--- tcllib-1.2/modules/mime/mime.tcl	Mon Jan 21 10:55:22 2002
+++ tcllib-1.2/modules/mime/mime-modified.tcl	Thu Apr 25 17:00:03 2002
@@ -2183,7 +2183,7 @@
     # with =xx sequence
 
     regsub -all -- \
-	    {[\x00-\x08\x0B-\x1E\x21-\x24\x40\x5B-\x5E\x60\x7B-\xFF]} \
+	    {[\x00-\x08\x0B-\x1E\x21-\x24\x3D\x40\x5B-\x5E\x60\x7B-\xFF]} \
 	    $string {[format =%02X [scan "\\&" %c]]} string
 
     # Replace the format commands with their result
