--- a/Smalltalk.st	Fri Jan 05 15:21:10 1996 +0100
+++ b/Smalltalk.st	Fri Jan 05 15:37:36 1996 +0100
@@ -71,7 +71,7 @@
 					If an image is saved while this is nonNil, the image will come up
 					there.
 
-	CommandLineArguments <Array>	command line broken into words
+	CommandLineArguments <Array>    command line broken into words
 
 	SilentLoading   <Boolean>       suppresses messages during fileIn and in compiler
 					(can be set to true from a customized main)
@@ -416,7 +416,7 @@
     CachedClasses notNil ifTrue:[
 	oldValue isBehavior ifTrue:[
 	    oldValue name == aKey ifTrue:[
-	        CachedClasses remove:oldValue ifAbsent:[]
+		CachedClasses remove:oldValue ifAbsent:[]
 	    ]
 	].
 	aValue isBehavior ifTrue:[
@@ -1806,6 +1806,19 @@
     "
 !
 
+fileInClassLibrary:aClassLibraryName
+    "find an object file containing a class library in some standard places
+     and load it. Return true if ok, false if not."
+
+    ObjectFileLoader isNil ifTrue:[^ false].
+    ^ ObjectFileLoader loadObjectFile:(aClassLibraryName , (ObjectFileLoader sharedLibraryExtension))
+
+    "
+     Smalltalk fileInClassLibrary:'libtable'
+     Smalltalk fileInClassLibrary:'binary/libwidg3'
+    "
+!
+
 fileInClass:aClassName
     "find a source/object file for aClassName and -if found - load it.
      search is in some standard places trying driver-file (.ld), object-file (.o) and 
@@ -2778,5 +2791,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.108 1996-01-05 14:07:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.109 1996-01-05 14:37:36 cg Exp $'
 ! !