--- old/tcl8.5.3/win/tclWinPort.h	2008-07-24 16:08:00.000000000 -0500
+++ new/tcl8.5.3/win/tclWinPort.h	2008-07-24 16:08:38.999781400 -0500
@@ -518,7 +518,9 @@
  * functions.
  */

-#define TclpExit		exit
+static void TclpExit(int code) {
+  TerminateProcess(GetCurrentProcess(), code);
+}

 #ifndef INVALID_SET_FILE_POINTER
 #define INVALID_SET_FILE_POINTER 0xFFFFFFFF
