--- a/Autoload.st	Thu Aug 17 16:12:51 2006 +0200
+++ b/Autoload.st	Thu Aug 17 16:30:09 2006 +0200
@@ -432,7 +432,7 @@
     ].
 
     newClass setPackage:packageID.
-    newClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | mthd setPackage:package].
+    newClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | mthd setPackage:packageID].
 
     "/
     "/ autoloaded classes get their package from the revision (if present)
@@ -445,7 +445,7 @@
 "/    newPackage := newClass package.
 "/    (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
 "/        (package notNil and:[package ~= 'no package']) ifTrue:[
-"/            newClass setPackage:package.
+"/            newClass setPackage:packageID.
 "/        ].
 "/    ].
 
@@ -899,7 +899,7 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.137 2006-08-17 09:13:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.138 2006-08-17 14:30:09 cg Exp $'
 ! !
 
 Autoload initialize!