Index: tests/forward.test
===================================================================
diff -u -r61b88669a5185691884e76f68a181e7a3488a72e -re760812b51ea82ca898a829118d11479d52e9aef
--- tests/forward.test	(.../forward.test)	(revision 61b88669a5185691884e76f68a181e7a3488a72e)
+++ tests/forward.test	(.../forward.test)	(revision e760812b51ea82ca898a829118d11479d52e9aef)
@@ -361,14 +361,14 @@
 
   obj public object forward foo list {%obj foo}
   if {$::tcl86} {
+    ? {obj foo 1 2 3} "TCL LIMIT STACK" "stack overflow"
+  } else {
     #
     # Deactivate under windows for the time being.
     #
+    # see CheckCStack in Tcl 8.5:
+    # https://core.tcl-lang.org/tcl/artifact?name=97fd3164833e9ef3&ln=3576
     if {$::tcl_platform(platform) ne "windows" } {
-      ? {obj foo 1 2 3} "TCL LIMIT STACK" "stack overflow"
-    }
-  } else {
-    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"