--- mime.tcl	14 Sep 2002 23:39:55 -0000	1.27
+++ mime.tcl	31 Oct 2002 00:40:53 -0000
@@ -706,7 +706,8 @@
 
             set x [string length $line]
         }
-        if {[string last "\r" $line] == [expr {$x-1}]} {
+        if {[string last "\r" $line] == [expr {$x-1}] && $x != 0} {
             set line [string range $line 0 [expr {$x-2}]]
         }
 

