--- a/smalltalk.rc	Mon Mar 14 20:11:31 2005 +0100
+++ b/smalltalk.rc	Wed Mar 16 15:28:00 2005 +0100
@@ -34,7 +34,7 @@
 "/***************************************************************
 |cpu enableJIT|
 
-'smalltalk.rc [info]: initial startup (snapshot image restart is faster) ...' infoPrintCR.
+'smalltalk.rc [info]: initial startup (snapshot image restart is faster)...' infoPrintCR.
 
 "/
 "/ the JIT translator is known to work with the following
@@ -74,7 +74,7 @@
 ].
 
 enableJIT ifTrue:[
-    "/ 'smalltalk.rc [info]: turn on JIT ...' infoPrintCR.
+    "/ 'smalltalk.rc [info]: turn on JIT...' infoPrintCR.
     ObjectMemory justInTimeCompilation:true.
 ].
 
@@ -115,7 +115,7 @@
     Smalltalk systemPath addFirst:'../..'.
 ].
 
-"/ but, the current directory should always be first ...
+"/ but, the current directory should always be first...
 (Smalltalk systemPath includes:'.') ifTrue:[
     Smalltalk systemPath remove:'.'.
 ].
@@ -171,7 +171,7 @@
 	  Minimum smalltalk does only contain libbasic, libcomp and librun.
 	  FileIn view stuff"
 
-	 'smalltalk.rc [info]: installing required class libraries ...' infoPrintCR.
+	 'smalltalk.rc [info]: installing required class libraries...' infoPrintCR.
 	 (Smalltalk isClassLibraryLoaded:'libbasic2') ifFalse:[
 	      Smalltalk loadPackage:'stx:libbasic2'.
 	 ].
@@ -266,7 +266,7 @@
     ].
 
     (Smalltalk commandLineArguments includes:'--quick') ifFalse:[
-	'smalltalk.rc [info]: installing autoloaded classes ...' infoPrintCR.
+	'smalltalk.rc [info]: installing autoloaded classes...' infoPrintCR.
 	Smalltalk installAutoloadedClasses.
     ].
     needToReactivate ifTrue:[HistoryManager activate].
@@ -281,7 +281,7 @@
 	    'smalltalk.rc [warning]: autoload failed' errorPrintCR.
 	    ex return.
 	] do:[
-	    'smalltalk.rc [info]: loading ' infoPrint. aClass name infoPrint. ' ...' infoPrintCR.
+	    'smalltalk.rc [info]: loading ' infoPrint. aClass name infoPrint. '...' infoPrintCR.
 	    aClass autoload.
 	]
     ].
@@ -290,7 +290,7 @@
     "/ binary save all classes
     "/
     Autoload loadedClasses do:[:cls |
-	'smalltalk.rc [info]: saving binary of ' infoPrint. cls name infoPrint. ' ...' infoPrintCR.
+	'smalltalk.rc [info]: saving binary of ' infoPrint. cls name infoPrint. '...' infoPrintCR.
 	cls binaryFileOut.
 	OperatingSystem executeCommand:'mv *.cls binary'.
     ]
@@ -396,7 +396,7 @@
 "/
 "/ this defines stuff relating to the host we are running on
 "/
-"/ 'smalltalk.rc [info]: reading ''host.rc'' ...' infoPrintCR.
+"/ 'smalltalk.rc [info]: reading ''host.rc''...' infoPrintCR.
 Smalltalk fileIn:'host.rc'.
 
 "/
@@ -406,7 +406,7 @@
 "/ Host specific things are configured in host.rc.
 "/
 Display notNil ifTrue:[
-    "/ 'smalltalk.rc [info]: reading ''display.rc'' ...' infoPrintCR.
+    "/ 'smalltalk.rc [info]: reading ''display.rc''...' infoPrintCR.
     Smalltalk fileIn:'display.rc'.
 ].
 
@@ -431,13 +431,15 @@
     ((Smalltalk commandLineArguments includes:'--noLicenceBox')
      or:[Smalltalk commandLineArguments includes:'--quick']) ifFalse:[
 	Smalltalk addStartBlock:[
-	    'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
-
+	    'smalltalk.rc [info]: show licence conditions...' infoPrintCR.
 	    LicenceBox autoload.
 	    LicenceBox licenceRejectSignal handle:[:ex|
 		Smalltalk exit
 	    ] do:[
-		(LicenceBox open) ifFalse:[Smalltalk exit].
+		(LicenceBox open) ifFalse:[
+		    'smalltalk.rc [info]: licence conditions not accepted.' infoPrintCR.
+		    Smalltalk exit
+		].
 		Smalltalk at:#LicenceBox put:nil.
 	    ].
 	]
@@ -502,10 +504,10 @@
 
     idx := Smalltalk commandLine indexOf:'-F'.
     file := Smalltalk commandLine at:idx + 1.
-    ('smalltalk.rc [info]: reading ''' , file , ''' ...') infoPrintCR.
+    ('smalltalk.rc [info]: reading ''' , file , '''...') infoPrintCR.
     Smalltalk fileIn:file.
 ] ifFalse:[
-    'smalltalk.rc [info]: reading ''private.rc'' ...' infoPrintCR.
+    'smalltalk.rc [info]: reading ''private.rc''...' infoPrintCR.
     Smalltalk fileIn:'private.rc'.
 ].
 
@@ -513,7 +515,7 @@
     "/
     "/ read saved configuration settings (if any)
     "/
-    "/ 'smalltalk.rc [info]: reading ''settings.stx'' ...' infoPrintCR.
+    "/ 'smalltalk.rc [info]: reading ''settings.stx''...' infoPrintCR.
     Object abortSignal handle:[:ex |
 	ex return
     ] do:[
@@ -638,7 +640,7 @@
      Smalltalk addStartBlock:[
       [
 	  doneWithStartupStuff wait.
-	     'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
+	     'smalltalk.rc [info]: saving initial image for faster future startup...' infoPrintCR.
 	     ObjectMemory primSnapShotOn:'st.img'
       ] forkAt:1
      ].