--- a/Autoload.st	Thu Jun 15 11:35:48 2006 +0200
+++ b/Autoload.st	Thu Jun 15 11:52:45 2006 +0200
@@ -539,6 +539,15 @@
     "Modified: 26.5.1997 / 14:59:58 / cg"
 !
 
+privateClassesAt:aClassNameString
+    "catch  - load the class and send it to the real one"
+
+    self == Autoload ifTrue:[
+        ^ super privateClassesAt:aClassNameString.
+    ].
+    ^ self doesNotUnderstand:(Message selector:#privateClassesAt: argument:aClassNameString)
+!
+
 readFrom:aStream 
     "catch  - load the class and send it to the real one"
 
@@ -858,7 +867,7 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.130 2006-03-06 08:50:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.131 2006-06-15 09:52:45 stefan Exp $'
 ! !
 
 Autoload initialize!