smalltalk.rc
changeset 170 0a0f8d35451e
parent 169 08055578224e
child 195 1cf850844da9
--- a/smalltalk.rc	Sat Nov 09 02:03:57 1996 +0100
+++ b/smalltalk.rc	Sat Nov 09 19:20:50 1996 +0100
@@ -230,31 +230,14 @@
 "/ (it will not be shown when coming up via a snapshot image)
 "/
 Smalltalk addStartBlock:[
-    |loader needToReactivate|
-
-    needToReactivate := HistoryManager isActive.
-    HistoryManager deactivate.
-
     LicenceBox autoload.
 
-    "/ fetch autoloaded classes in the meanwhile ...
-    loader := [
-	Class withoutUpdatingChangesDo:[   
-	    'installing autoloaded classes ...' printCR.
-	    Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
-	].
-	needToReactivate ifTrue:[HistoryManager activate].
-    ] forkAt:Processor userBackgroundPriority.
-
     LicenceBox licenceRejectSignal handle:[:ex|
 	Smalltalk exit
     ] do:[
 	LicenceBox open.
 	Smalltalk at:#LicenceBox put:nil.
     ].
-
-    "/ wait for loader
-    loader waitUntilTerminated.
 ].
 
 "/