--- a/smalltalk.rc	Fri Mar 05 14:58:44 1999 +0100
+++ b/smalltalk.rc	Sat Mar 06 01:25:29 1999 +0100
@@ -322,27 +322,32 @@
 "/
 "/ Ask user to accept Licence.
 "/ exit, if rejected.
+"/
 "/ You may find this annoying - but lawers say: "this is a must ..." ;-)
 "/ (it will not be shown when coming up via a snapshot image)
+"/ Also, the licenceBox can be suppressed with a command-line argument;
+"/ however, if you do so, we assume you have read & accepted it at least
+"/ once (since this command-line-argument is not documented, you obviously
+"/ read the code below).
 
-Smalltalk addStartBlock:[
-    'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
+"/
+"/ WARNING: read the licence text before you disable the code below,
+"/          or start stx with a suppress argument.
+"/
 
-"/    MessageTally spyOn:[
-"/    Class withoutUpdatingChangesDo:[   
-"/        'patches [info]: installing autoloaded classes ...' infoPrintCR.
-"/        Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
-"/    ].
-"/    ].
+(Smalltalk commandLineArguments includes:'--noLicenceBox') ifFalse:[
+    Smalltalk addStartBlock:[
+	'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
+
+	LicenceBox autoload.
 
-    LicenceBox autoload.
-
-    LicenceBox licenceRejectSignal handle:[:ex|
-	Smalltalk exit
-    ] do:[
-	(LicenceBox open) ifFalse:[Smalltalk exit].
-	Smalltalk at:#LicenceBox put:nil.
-    ].
+	LicenceBox licenceRejectSignal handle:[:ex|
+	    Smalltalk exit
+	] do:[
+	    (LicenceBox open) ifFalse:[Smalltalk exit].
+	    Smalltalk at:#LicenceBox put:nil.
+	].
+    ]
 ].
 
 "/