*** tclWinSerial.c.tcl845	Sat Jan 18 07:03:48 2003
--- tclWinSerial.c	Thu Apr 03 09:58:45 2003
***************
*** 647,652 ****
--- 647,654 ----
          }
          
          CloseHandle(serialPtr->writeThread);
+         CloseHandle(serialPtr->osWrite.hEvent);
+         DeleteCriticalSection(&serialPtr->csWrite);
          CloseHandle(serialPtr->evWritable);
          CloseHandle(serialPtr->evStartWriter);
          CloseHandle(serialPtr->evStopWriter);
