--- a/RegressionTests__MakefileTests.st	Wed May 30 14:48:57 2018 +0100
+++ b/RegressionTests__MakefileTests.st	Wed May 30 15:26:24 2018 +0100
@@ -16,6 +16,13 @@
 	privateIn:MakefileTests
 !
 
+StandaloneStartup subclass:#TestIssue214StartUp
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:MakefileTests
+!
+
 !MakefileTests class methodsFor:'documentation'!
 
 documentation
@@ -148,15 +155,39 @@
     self compile:(Array with:TestApplication01StartUp) type:ProjectDefinition nonGuiApplicationType.
 
     "Created: / 30-05-2018 / 14:22:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 31-05-2018 / 21:39:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_application_01b
-    <timeout: 600> "600sec = 10min"    
+    <timeout: 600> "600sec = 10min"
 
     self setUpForPackage:('tmp:' , testSelector , '/' , testSelector) asSymbol.
     self compile:(Array with:TestApplication01StartUp) type:ProjectDefinition nonGuiApplicationType.
 
     "Created: / 30-05-2018 / 14:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 31-05-2018 / 21:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MakefileTests methodsFor:'tests -  regression'!
+
+test_issue_214a
+    "
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/214
+    "
+    <timeout: 600> "600sec = 10min"
+
+    | exe |
+
+    Screen current isNil ifTrue:[
+        Smalltalk openDisplay.
+    ].
+    self skipIf:Screen current isNil description:'No display connection'.
+
+    exe := self compile:(Array with:TestIssue214StartUp) type:ProjectDefinition guiApplicationType.
+    self assert: (OperatingSystem executeCommand: exe)
+
+    "Created: / 30-05-2018 / 14:52:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 31-05-2018 / 21:39:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MakefileTests methodsFor:'tests-helpers'!
@@ -266,6 +297,35 @@
     "Created: / 19-11-2013 / 13:12:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!MakefileTests::TestIssue214StartUp class methodsFor:'startup-to be redefined'!
+
+main:args
+    [  
+        Smalltalk ignoreAssertions: false.
+        Display isNil ifTrue:[ Smalltalk openDisplay ].
+        SimpleView setDefaultStyle.
+
+        Stdout nextPutAll: 'Smalltalk packagePath   "/ -> '; nextPutLine: Smalltalk packagePath storeString.
+        Stdout nextPutAll: 'Smalltalk realSystemPath"/ -> '; nextPutLine: Smalltalk realSystemPath storeString.
+        Stdout nextPutAll: 'SimpleView defaultStyle "/ -> '; nextPutLine: SimpleView defaultStyle storeString.
+        Stdout nextPutAll: 'SimpleView styleSheet name"/ -> '; nextPutLine: SimpleView styleSheet name storeString.
+
+        self assert: SimpleView defaultStyle notNil description: 'SimpleView defaultStyle == nil'.
+        self assert: (SimpleView styleSheet fileReadFailed not) description: 'SimpleView styleSheet fileReadFailed not'.
+    ] on: Error do:[:ex | 
+        Stderr nextPutAll: 'ERROR '; nextPutLine: ex description.
+        ex suspendedContext fullPrintAllOn: Stderr.  
+        Smalltalk exitIfStandalone: 1.
+    ].
+    Smalltalk exitIfStandalone
+    "
+    TestIssue214StartUp main: #()
+    "
+
+    "Created: / 30-05-2018 / 14:50:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-06-2018 / 09:39:11 / jv"
+! !
+
 !MakefileTests class methodsFor:'documentation'!
 
 version