--- a/Smalltalk.st	Wed Jul 04 19:19:05 2007 +0200
+++ b/Smalltalk.st	Wed Jul 04 19:31:27 2007 +0200
@@ -2716,10 +2716,17 @@
 
 'mainStartup' printCR.
 'Display is ' print. Display printCR.
+'graphicalMode is ' print. graphicalMode printCR.
 
     imageName := ObjectMemory imageName.
     thisIsARestart := imageName notNil.
 
+    graphicalMode ifTrue:[
+        Display isNil ifTrue:[
+            self openDisplay.
+        ].
+    ].
+
     "
      if there is a display, start its event dispatcher
     "
@@ -3144,7 +3151,6 @@
 
     |idx graphicalMode arg didReadRCFile|
 
-'start' printCR.
     graphicalMode := true.
     Initializing := true.
 
@@ -3300,9 +3306,12 @@
         self initStandardTools.
     ].
 
-    (Display isNil or:[HeadlessOperation]) ifTrue:[
+    HeadlessOperation ifTrue:[
         graphicalMode := false.
     ].
+"/    Display isNil ifTrue:[
+"/        graphicalMode := false.
+"/    ].
     self mainStartup:graphicalMode
 
     "Modified: / 06-12-2006 / 15:39:17 / cg"
@@ -7008,5 +7017,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.827 2007-07-04 17:19:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.828 2007-07-04 17:31:27 cg Exp $'
 ! !