Autoload.st
changeset 2112 a5cff76f7404
parent 2067 36226285e85e
child 2223 87381a043e75
--- a/Autoload.st	Thu Jan 09 16:14:04 1997 +0100
+++ b/Autoload.st	Thu Jan 09 16:15:56 1997 +0100
@@ -300,7 +300,7 @@
     newClass setPackageFromRevision.
     (newClass package isNil 
     or:[newClass package = 'no package']) ifTrue:[
-	package := self package.
+        package := self package.
         (package notNil and:[package ~= 'no package'])
         ifTrue:[
             newClass setPackage:package.
@@ -326,13 +326,13 @@
     ObjectMemory flushCaches.
     LoadedClasses rehash.
 
-    (newClass class respondsTo:#initialize) ifTrue:[
+    (newClass class implements:#initialize) ifTrue:[
         newClass initialize.
     ].
     newClass postAutoload.
     ^ newClass
 
-    "Modified: 4.1.1997 / 19:56:44 / cg"
+    "Modified: 9.1.1997 / 15:44:06 / cg"
 ! !
 
 !Autoload class methodsFor:'message catching'!
@@ -491,6 +491,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.62 1997-01-05 13:45:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.63 1997-01-09 15:15:56 cg Exp $'
 ! !
 Autoload initialize!