Smalltalk.st
changeset 966 cc8b10ad5ce1
parent 965 3aae2f730ed1
child 977 7db01e9a9636
--- a/Smalltalk.st	Sun Feb 11 14:11:49 1996 +0100
+++ b/Smalltalk.st	Sun Feb 11 14:16:36 1996 +0100
@@ -1437,7 +1437,9 @@
     Display notNil ifTrue:[
 	Processor dispatchLoop
     ] ifFalse:[
-	self readEvalPrint
+	StandAlone ifFalse:[
+	    self readEvalPrint
+	]
     ].
 
     self exit
@@ -1561,7 +1563,7 @@
     (Display notNil and:[graphicalMode]) ifTrue:[
 	Processor dispatchLoop.
     ] ifFalse:[
-	StandAlone ifTrue:[
+	StandAlone ifFalse:[
 	    self readEvalPrint
 	]
     ].
@@ -2881,5 +2883,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.122 1996-02-11 13:11:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.123 1996-02-11 13:16:36 cg Exp $'
 ! !