--- a/Autoload.st	Wed Jul 12 16:03:28 2000 +0200
+++ b/Autoload.st	Fri Jul 14 11:27:57 2000 +0200
@@ -314,9 +314,9 @@
             Project setProject:nil.
         ].
 
+        package := self package.
         Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk" 
         do:[
-            package := self package.
             (Smalltalk 
                 fileInClass:myName
                 package:package
@@ -377,20 +377,21 @@
         ^ nil
     ].
 
+    newClass setPackage:package.
     "/
     "/ autoloaded classes get their package from the revision (if present)
     "/ this only happens with autoloaded sourceFiles which have no package
     "/ info encoded. (binary classes have it)
     "/ If there is no such information, give it my package (if I have one)
     "/
-    newClass setPackageFromRevision.
-
-    newPackage := newClass package.
-    (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
-        (package notNil and:[package ~= 'no package']) ifTrue:[
-            newClass setPackage:package.
-        ].
-    ].
+"/    newClass setPackageFromRevision.
+"/
+"/    newPackage := newClass package.
+"/    (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
+"/        (package notNil and:[package ~= 'no package']) ifTrue:[
+"/            newClass setPackage:package.
+"/        ].
+"/    ].
 
     LoadedClasses isNil ifTrue:[
         LoadedClasses := IdentitySet new.
@@ -592,6 +593,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.102 2000-03-30 14:37:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.103 2000-07-14 09:27:57 cg Exp $'
 ! !
 Autoload initialize!