Index: tests/forward.test
===================================================================
diff -u -r1d2bdbea2141f159f982e8dde0f9b0a6778a8b71 -r3abc6a6f7afa225bd33ff9675cd7704e3dbc7389
--- tests/forward.test	(.../forward.test)	(revision 1d2bdbea2141f159f982e8dde0f9b0a6778a8b71)
+++ tests/forward.test	(.../forward.test)	(revision 3abc6a6f7afa225bd33ff9675cd7704e3dbc7389)
@@ -361,7 +361,12 @@
 
   obj public object forward foo list {%obj foo}
   if {$::tcl86} {
-    ? {obj foo 1 2 3} "TCL LIMIT STACK" "stack overflow"
+    #
+    # deactivate under windows for the time being
+    #
+    if {$::tcl_platform(platform) ne "windows" } {
+      ? {obj foo 1 2 3} "TCL LIMIT STACK" "stack overflow"
+    }
   } else {
     ? {obj foo 1 2 3} {too many nested evaluations (infinite loop?)} "stack overflow"
   }