--- a/Autoload.st	Sun Feb 12 09:58:32 2017 +0100
+++ b/Autoload.st	Sun Feb 12 11:09:33 2017 +0100
@@ -473,12 +473,10 @@
          an entry is missing in the abbreviation file.
 
          Check for a readable file named <myName>.st 
-         in the 'source' directory and (if its a long fileName) 
-         for a corresponding entry in the abbreviation file
-         'include/abbrev.stc'.
+         in the 'source' directory and (if the fileName is not the same as the class name) 
+         for a corresponding entry in the abbreviation file 'abbrev.stc'.
          Finally, your searchpath could be set wrong -
-         both 'source' and 'include' directories must be found in
-         one of the directories named in systemPath.
+         the package might not be found along one of the directories named in systemPath.
 
          In the debugger, press 'Abort' to continue execution.
         " 
@@ -499,20 +497,22 @@
     "/ info encoded. (binary classes have it)
     "/ If there is no such information, give it my package (if I have one)
     "/
-"/    newClass setPackageFromRevision.
-"/
-"/    newPackage := newClass package.
-"/    (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
-"/        (package notNil and:[package ~= 'no package']) ifTrue:[
-"/            newClass setPackage:packageID.
-"/        ].
-"/    ].
+    "/    newClass setPackageFromRevision.
+    "/
+    "/    newPackage := newClass package.
+    "/    (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
+    "/        (package notNil and:[package ~= 'no package']) ifTrue:[
+    "/            newClass setPackage:packageID.
+    "/        ].
+    "/    ].
 
 
     "wow - it worked. now the big trick ..."
 
-"/   newClass class setSoleInstance:self.   "/ will be undone by become ...
-"/   self setName:(self name , ' (auto)').
+    "/ don't do this:
+    "/   newClass class setSoleInstance:self.   
+    "/   self setName:(self name , ' (auto)').
+    "/ as it will be undone by become ...
 
     Smalltalk changed:#aboutToAutoloadClass with:(self -> newClass).
     newClass ~~ self ifTrue:[
@@ -537,6 +537,7 @@
     ^ newClass
 
     "Modified: / 23-10-2006 / 18:12:21 / cg"
+    "Modified (comment): / 12-02-2017 / 10:48:13 / cg"
 ! !
 
 !Autoload class methodsFor:'message catching'!