also catch #initialize.
authorClaus Gittinger <cg@exept.de>
Thu, 18 Nov 1999 21:11:11 +0100
changeset 5005 e31701a84055
parent 5004 73e1c3d1fd7a
child 5006 8a211e38846d
also catch #initialize.
Autoload.st
--- a/Autoload.st	Thu Nov 18 17:23:04 1999 +0100
+++ b/Autoload.st	Thu Nov 18 21:11:11 1999 +0100
@@ -97,7 +97,11 @@
         self class changeClassTo:AutoloadMetaclass.
         self setSuperclass:nil.
         ObjectMemory flushCaches.
-    ]
+    ].
+
+    self ~~ Autoload ifTrue:[
+        ^ self doesNotUnderstand:(Message selector:#initialize)
+    ].
 
     "Modified: / 20.5.1997 / 19:06:25 / cg"
     "Modified: / 3.8.1999 / 14:23:30 / stefan"
@@ -587,6 +591,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.98 1999-09-20 12:16:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.99 1999-11-18 20:11:11 cg Exp $'
 ! !
 Autoload initialize!