--- a/Autoload.st	Sat Jan 11 22:24:31 2020 +0100
+++ b/Autoload.st	Tue Jan 14 11:29:34 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -312,7 +310,7 @@
      Return the loaded class"
 
     |myName myNameSpace newClass project prevMode packageID
-     packageDefinitionClass packageExtensionsFile|
+     packageDefinitionClass packageExtensionsFile prjDir|
 
     self == Autoload ifTrue:[
         "already loaded"
@@ -380,9 +378,11 @@
             ].
         ] ifFalse:[
             "/ no package definition class - look for extensions anyway
-            packageExtensionsFile := (Smalltalk projectDirectoryForPackage:packageID) asFilename / 'extensions.st'.
-            packageExtensionsFile exists ifTrue:[
-                packageExtensionsFile fileIn.
+            (prjDir := Smalltalk projectDirectoryForPackage:packageID) notNil ifTrue:[
+                packageExtensionsFile := prjDir asFilename / 'extensions.st'.
+                packageExtensionsFile exists ifTrue:[
+                    packageExtensionsFile fileIn.
+                ].
             ].
         ].
     ].