--- a/Autoload.st	Sat Dec 09 22:34:58 1995 +0100
+++ b/Autoload.st	Sat Dec 09 22:38:56 1995 +0100
@@ -166,6 +166,8 @@
         (mgr := Smalltalk at:#SourceCodeManager) notNil ifTrue:[
             classFileName := Smalltalk fileNameForClass:myName.
             packageDir := Smalltalk sourceDirectoryNameOfClass:myName.
+        ].
+        (classFileName notNil and:[packageDir notNil]) ifTrue:[
             aStream nextPutAll:'When accessed, I''ll ask the sourceCodeManager to load the code 
 from "' , classFileName , '.st" in the "' , packageDir , '" package.'.
         ] ifFalse:[
@@ -175,6 +177,7 @@
     aStream cr; nextPutAll:'"'.
 
     "Created: 8.12.1995 / 00:31:53 / cg"
+    "Modified: 9.12.1995 / 22:31:02 / cg"
 ! !
 
 !Autoload class methodsFor:'lazy compilation'!
@@ -352,6 +355,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.33 1995-12-07 23:54:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.34 1995-12-09 21:38:56 cg Exp $'
 ! !
 Autoload initialize!