--- a/patches	Mon May 31 17:21:08 1999 +0200
+++ b/patches	Mon May 31 17:21:46 1999 +0200
@@ -140,81 +140,6 @@
 ].
 !
 
-"/
-"/ read the abbrev.stc file, extract class names
-"/ and install all nonExisting classes as autoloaded
-"/
-|needToReactivate|
-
-HistoryManager notNil ifTrue:[
-    needToReactivate := HistoryManager isActive.
-    HistoryManager deactivate.
-] ifFalse:[
-    needToReactivate := false
-].
-
-Class withoutUpdatingChangesDo:[   
-   'patches [info]: installing autoloaded classes ...' infoPrintCR.
-   Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
-].
-needToReactivate ifTrue:[HistoryManager activate].
-!
-
-"/
-"/ a kludge: we might have added new ImageReaders above - let Image know about it
-"/
-|imageClass cls|
-
-imageClass := Smalltalk at:#Image ifAbsent:nil.
-imageClass notNil ifTrue:[
-    imageClass isBehavior ifTrue:[
-	imageClass initializeFileFormatTable.
-    ]
-].
-
-"/
-"/ some ST80 name aliases
-"/ (actually, much more is needed - this is just a start ...)
-"/
-(cls := Smalltalk at:#StandardSystemView) notNil ifTrue:[
-    Smalltalk at:#ScheduledWindow put:cls
-].
-(cls := Smalltalk at:#Socket) notNil ifTrue:[
-    Smalltalk at:#UnixSocketAccessor put:cls.
-    Smalltalk at:#SocketAccessor put:cls.
-    Smalltalk at:#SocketAccessorByAddress put:cls.
-].
-Smalltalk at:#BlockClosure put:Block.
-Smalltalk at:#CompiledMethod put:Method.
-(cls := Smalltalk at:#DialogBox) notNil ifTrue:[
-    Smalltalk at:#Dialog     put:cls.
-    Smalltalk at:#DialogView put:cls.
-].
-Smalltalk at:#ByteString put:String.
-Smalltalk at:#ByteSymbol put:Symbol.
-Smalltalk at:#ByteEncodedString put:String.
-Smalltalk at:#Console put:Stderr.
-Smalltalk at:#HandlerList put:HandlerCollection.
-Smalltalk at:#SignalCollection put:SignalSet.
-Smalltalk at:#Timestamp put:AbsoluteTime.
-
-"/ FileDirectory notNil ifTrue:[
-"/     Smalltalk at:#Disk put:(Filename rootDirectory)
-"/ ].
-
-Display notNil ifTrue:[
-    Smalltalk at:#Window put:(Display class).
-    Smalltalk at:#Screen put:(Display class).
-    Smalltalk at:#Sensor put:Display.
-].
-
-"/
-"/ ST/X has (currently) no Double, but Float is what ST-80's Double is ...
-"/
-Smalltalk at:#Double put:Float.
-
-Smalltalk at:#Browser put:SystemBrowser.
-
 Project notNil ifTrue:[
     Project setDefaultProject.
     Project current packageName:#'patches'.
@@ -227,12 +152,14 @@
 "/ called stxPatches. (we will deliver patch-sets in the future)
 "/ This is not yet implemented, but we are prepared here for
 "/ this ...
+"/ patches from that directory are read in alphabetic order;
+"/ patches will be named them p_nnnn.st, where nnnn is a sequence-nr.
 
 |patchDir|
 
 patchDir := 'stxPatches' asFilename.
 (patchDir exists and:[patchDir isDirectory and:[patchDir isReadable]]) ifTrue:[
-    patchDir directoryContents do:[:f |
+    patchDir directoryContents sort do:[:f |
 	|fn|
 
 	fn := (patchDir construct:f) name.