--- a/ProgrammingLanguage.st	Fri Jan 22 15:51:58 2016 +0100
+++ b/ProgrammingLanguage.st	Fri Jan 22 17:08:22 2016 +0100
@@ -171,16 +171,21 @@
 allDo: aBlock
     ^ self allSubclassesDo: [:each | aBlock value: each instance]
 
+    "
+     ProgrammingLanguage allDo:[:l | Transcript showCR:l ]
+    "
+    
     "Created: / 16-08-2009 / 14:07:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !ProgrammingLanguage class methodsFor:'private'!
 
 instancesDetect: detectBlock ifNone: failBlock
-
-
-    self allSubclasses 
-        do:[:cls|(detectBlock value: cls instance) ifTrue:[^cls instance]].
+    self allSubclasses do:[:cls|
+        |inst|
+        inst := cls instance.
+        (detectBlock value:inst) ifTrue:[^inst]
+    ].
     ^failBlock value
 
     "Created: / 16-08-2009 / 10:57:32 / Jan Vrany <vranyj1@fel.cvut.cz>"