--- a/Autoload.st	Sun Feb 28 17:24:01 1999 +0100
+++ b/Autoload.st	Sun Feb 28 18:15:38 1999 +0100
@@ -158,7 +158,7 @@
      Since autoloaded classes dont know their real definition, simply
      output some comment string making things clear in the browser."
 
-    |myName fileName nm mgr classFileName packageDir|
+    |myName fileName nm mgr classFileName packageDir package|
 
     (self == Autoload) ifTrue:[^ super basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace].
 
@@ -189,6 +189,7 @@
         ].
     ].
     nm isNil ifTrue:[
+	package := self package.
         package notNil ifTrue:[
             nm := Smalltalk getSourceFileName:((package copyReplaceAll:$: with:$/) , '/' , fileName , '.st').
         ].
@@ -603,6 +604,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.84 1999-02-27 16:43:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.85 1999-02-28 17:15:38 cg Exp $'
 ! !
 Autoload initialize!