--- 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!