--- a/Smalltalk.st	Tue Jan 09 19:53:03 2007 +0100
+++ b/Smalltalk.st	Tue Jan 09 19:59:26 2007 +0100
@@ -4403,6 +4403,22 @@
     "Modified: / 9.1.1998 / 14:42:28 / cg"
 !
 
+fileInClass:aClassName package:package
+    "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
+     finally source file (.st) in that order.
+     The file is first searched for using the class name, then the abbreviated name."
+
+    ^ self
+        fileInClass:aClassName
+        package:package
+        initialize:true
+        lazy:false
+        silent:nil
+
+    "Created: / 08-01-2007 / 10:06:09 / cg"
+!
+
 fileInClass:aClassName package:package initialize:doInit lazy:loadLazy silent:beSilent 
     "find a source/object file for aClassName and -if found - load it.
      This is the workhorse for autoloading.
@@ -6925,5 +6941,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.801 2006-12-07 16:53:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.802 2007-01-09 18:59:26 cg Exp $'
 ! !