--- a/Metaclass.st	Tue Aug 01 11:42:23 2017 +0200
+++ b/Metaclass.st	Tue Aug 01 11:46:35 2017 +0200
@@ -339,14 +339,16 @@
         classInstanceVariableNames:stringOfClassInstVarNamesOrNil.
     newClass := builder buildClass.
 
-    "/ if the class was autoloaded, and it refers to any autoloaded shared pool,
-    "/ reference the pool now. So it will be present, when methods are compiled
-    "/ (avoids costy recompiles which may happen, if the sharedPool is loaded 
-    "/  after the methods have been compiled assuming that those names are globals)
-    (newClass sharedPools ? #()) do:[:each | each autoload].
+    newClass notNil ifTrue:[
+        "/ if the class was autoloaded, and it refers to any autoloaded shared pool,
+        "/ reference the pool now. So it will be present, when methods are compiled
+        "/ (avoids costy recompiles which may happen, if the sharedPool is loaded 
+        "/  after the methods have been compiled assuming that those names are globals)
+        (newClass sharedPools ? #()) do:[:each | each autoload].
+    ].
     ^ newClass
 
-    "Modified: / 12-02-2017 / 10:58:59 / cg"
+    "Modified: / 28-07-2017 / 13:40:22 / cg"
 !
 
 new