--- a/Autoload.st	Sun Jan 01 16:23:38 2017 +0100
+++ b/Autoload.st	Tue Jan 03 10:45:21 2017 +0100
@@ -172,12 +172,12 @@
 
     nameSymbol := aClassName asSymbol.
     (Smalltalk at:nameSymbol) isNil ifTrue:[
-	cls := Autoload 
-		subclass:nameSymbol
-		instanceVariableNames:''
-		classVariableNames:''
-		poolDictionaries:''
-		category:aCategory.
+        cls := self 
+                subclass:nameSymbol
+                instanceVariableNames:''
+                classVariableNames:''
+                poolDictionaries:''
+                category:aCategory.
     ].
     ^ cls