--- a/Autoload.st	Thu Mar 30 16:29:17 2000 +0200
+++ b/Autoload.st	Thu Mar 30 16:37:07 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 nil subclass:#Autoload
 	instanceVariableNames:''
 	classVariableNames:'LazyLoading AutoloadFailedSignal LoadedClasses'
@@ -164,14 +166,19 @@
 
 !Autoload class methodsFor:'fileout'!
 
-basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace
+basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace withPackage:withPackage
     "print an expression to define myself on aStream.
      Since autoloaded classes dont know their real definition, simply
      output some comment string making things clear in the browser."
 
     |myName fileName nm mgr classFileName package|
 
-    (self == Autoload) ifTrue:[^ super basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace].
+    (self == Autoload) ifTrue:[
+        ^ super 
+            basicFileOutDefinitionOn:aStream 
+            withNameSpace:forceNameSpace
+            withPackage:withPackage
+    ].
 
     myName := self name.
     aStream nextPutAll:'"' ; nextPutLine:'Notice from Autoload:'; cr;
@@ -585,6 +592,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.101 1999-12-03 18:28:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.102 2000-03-30 14:37:07 cg Exp $'
 ! !
 Autoload initialize!