--- a/Autoload.st	Fri Feb 26 17:22:53 1999 +0100
+++ b/Autoload.st	Sat Feb 27 14:39:26 1999 +0100
@@ -339,6 +339,7 @@
     "/ info encoded. (binary classes have it)
     "/ If there is no such information, give it my package (if I have one)
     "/
+
     newClass setPackageFromRevision.
     (newClass package isNil 
     or:[newClass package = 'no package']) ifTrue:[
@@ -548,6 +549,10 @@
 
 !Autoload class methodsFor:'queries'!
 
+allPrivateClassesDo:aBlock
+    "an autoloaded class has none"
+!
+
 isBehavior
     "return true if the recevier is some kind of class.
      Autoloaded classes are definitely; therefore return true."
@@ -587,10 +592,6 @@
     ^ #()
 !
 
-allPrivateClassesDo:aBlock
-    "an autoloaded class has none"
-!
-
 wasAutoloaded:aClass
     "return true, if aClass was autoloaded"
 
@@ -600,6 +601,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.82 1999-02-24 11:27:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.83 1999-02-27 13:39:26 cg Exp $'
 ! !
 Autoload initialize!