--- a/ApplicationModel.st	Mon Oct 01 17:27:09 2018 +0200
+++ b/ApplicationModel.st	Wed Oct 10 00:45:50 2018 +0200
@@ -1091,10 +1091,7 @@
 openLauncherOnInitializedDisplayNamed:displayName
     |display app wsClass|
 
-    wsClass := Smalltalk classNamed:#XWorkstation.
-    wsClass isNil ifTrue:[
-        self error:'XWorkstation has not been loaded'
-    ].
+    wsClass := #XWorkstation asClass.
 
     [
         display := wsClass newDispatchingFor:displayName.
@@ -1133,6 +1130,7 @@
     ^ app
 
     "Created: / 01-06-2010 / 11:23:52 / sr"
+    "Modified: / 10-10-2018 / 00:39:49 / Claus Gittinger"
 !
 
 openModal