Index: tests/forward.test
===================================================================
diff -u -rc0221269af704a7c5b2d7c40acf851b2d19ffd56 -r8b333a99b16c848c413caf1ed18482b47f1bf8b3
--- tests/forward.test	(.../forward.test)	(revision c0221269af704a7c5b2d7c40acf851b2d19ffd56)
+++ tests/forward.test	(.../forward.test)	(revision 8b333a99b16c848c413caf1ed18482b47f1bf8b3)
@@ -368,8 +368,11 @@
       ? {obj foo 1 2 3} "TCL LIMIT STACK" "stack overflow"
     }
   } else {
-    #? {obj foo 1 2 3} {too many nested evaluations (infinite loop?)} "stack overflow"
-    ? {obj foo 1 2 3} {out of stack space (infinite loop?)} "stack overflow"
+    if {$::tcl_platform(platform) ne "windows" } {
+      ? {obj foo 1 2 3} {too many nested evaluations (infinite loop?)} "stack overflow"
+    } else {
+      ? {obj foo 1 2 3} {out of stack space (infinite loop?)} "stack overflow"
+    }
   }
 
   obj public object forward foo list {%apply {{x} {return $x}} A}