--- a/Autoload.st	Sat Mar 06 11:23:12 1999 +0100
+++ b/Autoload.st	Sun Mar 07 16:06:15 1999 +0100
@@ -250,7 +250,8 @@
     "use this to force loading
      - it is defined a noop in all non-autoloading classes"
 
-    |mySelf myName myNameSpace newClass oldMeta project prevMode package|
+    |mySelf myName myNameSpace newClass oldMeta project prevMode 
+     package newPackage|
 
     mySelf := self.
     myName := self name asSymbol.
@@ -356,13 +357,11 @@
     "/ info encoded. (binary classes have it)
     "/ If there is no such information, give it my package (if I have one)
     "/
+    newClass setPackageFromRevision.
 
-    newClass setPackageFromRevision.
-    (newClass package isNil 
-    or:[newClass package = 'no package']) ifTrue:[
-        package := self package.
-        (package notNil and:[package ~= 'no package'])
-        ifTrue:[
+    newPackage := newClass package.
+    (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
+        (package notNil and:[package ~= 'no package']) ifTrue:[
             newClass setPackage:package.
         ].
     ].
@@ -618,6 +617,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.86 1999-03-05 11:58:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.87 1999-03-07 15:06:15 cg Exp $'
 ! !
 Autoload initialize!