Index: tclBinary.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBinary.c,v
retrieving revision 1.16
diff -u -r1.16 tclBinary.c
--- tclBinary.c	24 Dec 2003 04:18:18 -0000	1.16
+++ tclBinary.c	7 Jan 2004 16:50:51 -0000
@@ -1538,6 +1538,13 @@
     }
 }
 
+/* 
+ * Microsoft VC++ 5.x have a compiler bug which hits
+ * the 'w' and 'W' branches in the function below.
+ */
+#if defined(_MSC_VER) && ( _MSC_VER < 1200 )
+#pragma optimize( "", off )
+#endif
 /*
  *----------------------------------------------------------------------
  *
@@ -1702,6 +1709,12 @@
     }
     return NULL;
 }
+/* 
+ * See comment before preceding function 
+ */
+#if defined(_MSC_VER) && ( _MSC_VER < 1200 )
+#pragma optimize( "", on )
+#endif
 
 /*
  *----------------------------------------------------------------------
