Index: ChangeLog
===================================================================
diff -u -r2b87beee1ba747adb0b2bf5e3379f80a3261ce63 -r6ed4ee1fa83082cba7852aa3aa681351dbe8eea8
--- ChangeLog	(.../ChangeLog)	(revision 2b87beee1ba747adb0b2bf5e3379f80a3261ce63)
+++ ChangeLog	(.../ChangeLog)	(revision 6ed4ee1fa83082cba7852aa3aa681351dbe8eea8)
@@ -1,3 +1,7 @@
+2008-02-26 <Gustaf.Neumann@wu-wien.ac.at>
+    * xotcl.c: The double ;; chokes MSVC6 in the next line.
+      (many thanks for Andreas Kupries for reporting)
+
 2008-02-25 <Gustaf.Neumann@wu-wien.ac.at>
     * Fix for "x configure -set"; many thanks to 
       Rene Zamseil for reporting. 
Index: generic/xotcl.c
===================================================================
diff -u -r2b87beee1ba747adb0b2bf5e3379f80a3261ce63 -r6ed4ee1fa83082cba7852aa3aa681351dbe8eea8
--- generic/xotcl.c	(.../xotcl.c)	(revision 2b87beee1ba747adb0b2bf5e3379f80a3261ce63)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 6ed4ee1fa83082cba7852aa3aa681351dbe8eea8)
@@ -8452,7 +8452,7 @@
 
   case 'm':
     if (!strcmp(cmd, "mixin")) {
-        int withOrder = 0, withGuards = 0, rc;;
+      int withOrder = 0, withGuards = 0, rc;
       XOTclObject *matchObject;
       Tcl_DString ds, *dsPtr = &ds;