--- a/RegressionTests__VMCrashTests.st	Wed Apr 11 14:58:09 2018 +0100
+++ b/RegressionTests__VMCrashTests.st	Tue Apr 17 16:24:47 2018 +0100
@@ -990,6 +990,48 @@
     self iter_issue_200: Unicode32String.
 
     "Created: / 12-04-2018 / 11:21:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_issue_205a
+    "
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/205
+    "
+    <spawn: false>
+    <timeout: 120>"2min"
+
+    self spawnSmalltalk:#('-P' '1 to: 1000 do:[:each | each := each * 100. Delay waitForMilliseconds: 20. ObjectMemory garbageCollect ]. Smalltalk exit:0')
+
+    "Created: / 17-04-2018 / 15:18:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 25-05-2018 / 22:22:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_issue_205b
+    "
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/205
+    "
+    <spawn: true>
+    <timeout: 180>"3min"
+    | ws |
+
+    Screen current isNil ifTrue:[
+        Smalltalk openDisplay.
+    ].
+    self skipIf:Screen current isNil description:'No display connection'.
+
+    ParserFlags allowAssignmentToBlockArgument: true.
+    ParserFlags warnAssignmentToBlockArgument: false.
+    ws := Workspace new.
+    ws open.
+    ws contents: '1 to: 1000 do:[:each | each := each * 100. Delay waitForMilliseconds: 20. ObjectMemory garbageCollect]'.
+    Delay waitForSeconds: 1.
+    ws selectAll.
+    Delay waitForSeconds: 1.  
+    ws doIt.
+    ws close.
+    Stdout nextPutAll: 'Passed!!'.
+
+    "Created: / 17-04-2018 / 16:10:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-05-2018 / 22:22:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VMCrashTests class methodsFor:'documentation'!