--- a/Autoload.st	Sat Jan 04 23:38:16 1997 +0100
+++ b/Autoload.st	Sun Jan 05 00:40:36 1997 +0100
@@ -223,7 +223,7 @@
     "use this to force loading
      - it is defined a noop in all non-autoloading clases"
 
-    |mySelf myName newClass oldMeta project prevMode|
+    |mySelf myName newClass oldMeta project prevMode package|
 
     mySelf := self.
     myName := self name asSymbol.
@@ -300,6 +300,7 @@
     newClass setPackageFromRevision.
     (newClass package isNil 
     or:[newClass package = 'no package']) ifTrue:[
+	package := self package.
         (package notNil and:[package ~= 'no package'])
         ifTrue:[
             newClass setPackage:package.
@@ -490,6 +491,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.59 1997-01-04 18:58:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.60 1997-01-04 23:40:36 cg Exp $'
 ! !
 Autoload initialize!