--- a/RegressionTests__VMSpawningTestCase.st	Wed Jan 16 14:37:47 2019 +0100
+++ b/RegressionTests__VMSpawningTestCase.st	Mon Feb 04 20:20:47 2019 +0000
@@ -113,7 +113,11 @@
                Smalltalk packagePath: %1.
                Smalltalk loadPackage:%2.
                Smalltalk fileIn: %3.
+               STCCompilerInterface verbose: true.
                Smalltalk addStartBlock:[
+                   ParserFlags stcModulePath: Filename currentDirectory.
+                   ParserFlags stcKeepCIntermediate: true.
+                   ParserFlags stcKeepSTIntermediate: true.  
                    Processor exitWhenNoMoreUserProcesses: false.                   
                    [
                        (%4 selector: %5) spawnSelectorInternal: %6.                   
@@ -133,7 +137,7 @@
     self spawnSmalltalk: { '--abortOnSEGV'. '-I'. '--quick'. '--load'. (directory / 'run.st') pathName } inDirectory: directory
 
     "Created: / 06-01-2017 / 22:06:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-01-2017 / 19:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-02-2019 / 17:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 spawnSelectorInternal:selector 
@@ -233,6 +237,21 @@
             environment := Dictionary new
         ].
     blocker := Semaphore new.
+
+    "/ Write a little shell / .cmd script to re-execute the test.
+    "/ This script is not used here, but provided for convenience
+    "/ when debugging tests (using GDB or alike)
+    OperatingSystem isMSWINDOWSlike  ifTrue:[
+        (directory / 'run.cmd') writingFileDo:[ :s |
+            s nextPutAll: args
+        ]
+    ] ifFalse:[ 
+        (directory / 'run.sh') writingFileDo:[ :s |
+            args do:[:e | s nextPut: $"; nextPutAll: e; nextPut: $" ]
+                separatedBy: [ s space ]
+        ].
+    ].
+
     Processor 
         monitor:[
             pid := OperatingSystem 
@@ -286,9 +305,8 @@
     ].
 
     "Created: / 06-01-2017 / 11:25:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-07-2017 / 10:55:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 17-11-2017 / 14:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 02-01-2018 / 16:26:09 / jv"
+    "Modified: / 04-02-2019 / 20:17:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 writeFile: aFilename to: aStream labeled: aString