--- a/smalltalk.rc	Mon Sep 09 13:42:07 1996 +0200
+++ b/smalltalk.rc	Tue Sep 10 00:42:03 1996 +0200
@@ -81,7 +81,7 @@
 "/ values:
 "/
 Language == #De ifTrue:[
-	Language := #german
+    Language := #german
 ].
 !
 
@@ -223,6 +223,21 @@
 ].
 
 "/
+"/ Ask user to accept Licence.
+"/ exit, if rejected.
+"/
+
+Smalltalk addStartBlock:[
+    LicenceBox autoload.
+    LicenceBox licenceRejectSignal handle:[:ex|
+	Smalltalk exit
+    ] do:[
+	LicenceBox open.
+    ].
+].
+
+
+"/
 "/ read private (per user) stuff
 "/
 'reading private.rc ...' infoPrintCR.
@@ -230,59 +245,11 @@
 
 
 "/
-"/ start some views ...
-"/ you can add all stuff you'd like to come up by default
-"/ the first time.
-"/ NOTICE: you should do that in your 'private.rc'-file
-"/
-
-(Smalltalk at:#NewLauncher) notNil ifTrue:[
-    'starting main-menu ...' infoPrintCR.
-    (Smalltalk at:#NewLauncher) open
-] ifFalse:[
-    "*
-     * start a Transcript (if linked-in)
-     *"
-    TextCollector notNil ifTrue:[
-	'starting Transcript ...' infoPrintCR.
-	TextCollector newTranscript.
-"/      Transcript lineLimit:2000.
-    ].
-
-    "*
-     * start the Launcher (if linked-in)
-     *"
-    (Smalltalk at:#Launcher) notNil ifTrue:[
-	'starting main-menu ...' infoPrintCR.
-	(Smalltalk at:#Launcher) open
-    ].
-].
-
-"/
-"/ start a SystemBrowser
-"/ - I dont want one (using Launcher)
-"/
-"/ SystemBrowser open.
-
-"/
-"/ start a FileBrowser
-"/ - I dont want one (using Launcher)
-"/
-"/ FileBrowser open.
-
-"/
-"/ start a Workspace 
-"/ - I dont want one (using Launcher)
-"/
-"/ Workspace open.
-
-"/
 "/ if error occurs, and debugger has problems coming up
 "/
 "/ Debugger := MiniDebugger.
 
 "/ Processor activeProcess vmTrace:true.
-!
 
 "/'st.img' asFilename exists ifFalse:[
 "/    'saving initial image for faster future startup ...' infoPrintCR.