Index: mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.46
diff -u -r1.46 mime.tcl
--- mime.tcl	11 Mar 2005 05:08:53 -0000	1.46
+++ mime.tcl	9 Aug 2005 12:15:02 -0000
@@ -2036,9 +2036,9 @@
 		    set size [expr {$size - [string length $X]}]
 		}
 		if {[string compare $converter ""]} {
-		    append result "[$converter -mode encode -- $X]\r\n"
+		    append result "[$converter -mode encode -- $X]"
 		} else {
-		    append result "$X\r\n"
+		    append result "$X"
 		}
 	    }
 
