--- a/ProgrammingLanguage.st	Fri Mar 06 15:39:32 2020 +0100
+++ b/ProgrammingLanguage.st	Fri Mar 06 17:23:54 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2006 by eXept Software AG
               All Rights Reserved
@@ -207,14 +209,15 @@
     "detect a langauge instance for which detectBlock returns true;
      failBlock otherwise"
      
-    self allSubclasses do:[:cls|
+    self allSubclassesDo:[:cls|
         |inst|
         inst := cls instance.
-        (detectBlock value:inst) ifTrue:[^inst]
+        (detectBlock value:inst) ifTrue:[^ inst]
     ].
-    ^failBlock value
+    ^ failBlock value
 
     "Created: / 16-08-2009 / 10:57:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified (format): / 06-03-2020 / 17:15:24 / Stefan Vogel"
 ! !
 
 !ProgrammingLanguage class methodsFor:'queries'!