Index: tests/forward.test
===================================================================
diff -u -N -re760812b51ea82ca898a829118d11479d52e9aef -r6debf9659b2ad3fa8f4d83fb7cf54950da0f083c
--- tests/forward.test	(.../forward.test)	(revision e760812b51ea82ca898a829118d11479d52e9aef)
+++ tests/forward.test	(.../forward.test)	(revision 6debf9659b2ad3fa8f4d83fb7cf54950da0f083c)
@@ -361,11 +361,13 @@
 
   obj public object forward foo list {%obj foo}
   if {$::tcl86} {
+    # Avoid crashes when system stack size is limited (with forwards
+    # being more stack-hungry than, e.g., ordinary scripted methods).
+    set limit [interp recursionlimit {}]
+    interp recursionlimit {} 100
     ? {obj foo 1 2 3} "TCL LIMIT STACK" "stack overflow"
+    interp recursionlimit {} $limit
   } 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" } {