*** mime.tcl.orig       Wed Aug 28 07:25:03 2002
--- mime.tcl    Wed Aug 28 07:55:20 2002
***************
*** 680,685 ****
--- 680,686 ----
              if {$pos > $last} {
          #        error "termination string missing in $state(content)"
                   set line "--$boundary--"
+                  set x [string length $line]
              } else {
                if {[set x [gets $state(fd) line]] < 0} {
                    error "end-of-file encountered while parsing $state(content)"