--- a/RegressionTests__StackFrameTest.st	Tue Dec 18 21:45:07 2001 +0100
+++ b/RegressionTests__StackFrameTest.st	Fri Dec 21 16:01:57 2001 +0100
@@ -12,6 +12,20 @@
 
 !StackFrameTest methodsFor:'tests'!
 
+testUnlimitedStack1
+    10 timesRepeat:[
+        |a|
+
+        a := Array with:('1' copy) with:('2' copy) with:('3' copy) with:('4' copy) with:('5' copy).
+        self unlimitedStackTest1:a.
+        true.
+    ] 
+
+    "
+     self run:#testUnlimitedStack1
+    "
+!
+
 unlimitedStackTest1:anArray
 "
 [