diff -r 9d05aaafcca4 -r 842c808f5cf5 patches
--- a/patches	Thu Oct 17 21:46:19 1996 +0200
+++ b/patches	Fri Oct 18 14:51:22 1996 +0200
@@ -25,7 +25,11 @@
 
 Class catchMethodRedefinitions:false.
 ObjectMemory infoPrinting:false.
+ObjectMemory justInTimeCompilation:true.
 Smalltalk loadBinaries:true.
+Compiler allowUnderscoreInIdentifier:true. 
+Compiler warnUnderscoreInIdentifier:false. 
+Compiler warnSTXSpecials:false.
 
 Project notNil ifTrue:[
     Project setDefaultProject.
@@ -64,37 +68,37 @@
 'installing autoloaded classes ...' infoPrintNL.
 
 (Smalltalk at:#View) isNil ifTrue:[
-    "/
-    "/ mhmh - seems to be a minitalk
-    "/ try for shared libraries ...
-    "/
-    Smalltalk loadBinaries:true.
-
-    ObjectFileLoader notNil ifTrue:[
-	#(
-	  'libbasic2'
-	  'libbasic3'
-	  'libview'
-	  'libview2'
-	  'libwidg'
-	  'libwidg2'
-	  'libwidg3'
-	  'libxt'
-	  'libtool'
-	  'XWorkstat'
-	  'GLXWorkstat'
-	) do:[:nm |
-	    ('binary/' , nm) asFilename exists ifTrue:[
-		('loading ' , nm , ' ...') infoPrintNL.
-		(ObjectFileLoader loadObjectFile:'binary/' , nm , (ObjectFileLoader sharedLibraryExtension)) ifFalse:[
-		    'load of ' , nm , ' failed' infoPrintNL
-		]
-	    ].
-	].
-	Workstation initialize.
-	GraphicsContext initialize.
-    ].
-
+"/    "/
+"/    "/ mhmh - seems to be a minitalk
+"/    "/ try for shared libraries ...
+"/    "/
+"/    Smalltalk loadBinaries:true.
+"/
+"/    ObjectFileLoader notNil ifTrue:[
+"/        #(
+"/          'libbasic2'
+"/          'libbasic3'
+"/          'libview'
+"/          'libview2'
+"/          'libwidg'
+"/          'libwidg2'
+"/          'libwidg3'
+"/          'libxt'
+"/          'libtool'
+"/          'XWorkstat'
+"/          'GLXWorkstat'
+"/        ) do:[:nm |
+"/            ('binary/' , nm) asFilename exists ifTrue:[
+"/                ('loading ' , nm , ' ...') infoPrintNL.
+"/                (ObjectFileLoader loadObjectFile:'binary/' , nm , (ObjectFileLoader sharedLibraryExtension)) ifFalse:[
+"/                    'load of ' , nm , ' failed' infoPrintNL
+"/                ]
+"/            ].
+"/        ].
+"/        Workstation initialize.
+"/        GraphicsContext initialize.
+"/    ].
+"/
     optionalViews := #(
 			DeviceWorkstation
 			Workstation
@@ -208,7 +212,7 @@
 "/
 "/ Temporary backward comatibility (will be removed)
 "/
-Smalltalk at:#NewLauncher put:Launcher.
+"/ Smalltalk at:#NewLauncher put:Launcher.
 
 Project notNil ifTrue:[
     Project setDefaultProject.
@@ -216,6 +220,7 @@
 ].
 
 Class catchMethodRedefinitions:false.
+
 'installing patches ...' infoPrintNL.
 
 "/