--- a/Smalltalk.st	Wed Dec 07 17:21:55 2016 +0100
+++ b/Smalltalk.st	Wed Dec 07 17:22:50 2016 +0100
@@ -2038,17 +2038,17 @@
     numClassesHintTimes2 := NumberOfClassesHint*2.
     already := IdentitySet new:numClassesHintTimes2.
     self allClassesDo:[:eachClass |
-        |cls|
-
-        cls := eachClass theNonMetaclass.
-        (already includes:cls) ifFalse:[
-            aBlock value:cls.
-            already add:cls.
+        |theNonMeta theMeta|
+
+        theNonMeta := eachClass theNonMetaclass.
+        (already includes:theNonMeta) ifFalse:[
+            aBlock value:theNonMeta.
+            already add:theNonMeta.
         ].
-        cls := cls class.
-        (already includes:cls) ifFalse:[
-            aBlock value:cls.
-            already add:cls.
+        theMeta := theNonMeta class.
+        (already includes:theMeta) ifFalse:[
+            aBlock value:theMeta.
+            already add:theMeta.
         ].
         already size > numClassesHintTimes2 ifTrue:[
             NumberOfClassesHint := (already size // 2) + 10