--- a/ProgrammingLanguage.st	Thu May 05 06:48:19 2016 +0200
+++ b/ProgrammingLanguage.st	Thu May 12 09:30:28 2016 +0200
@@ -152,7 +152,7 @@
 !
 
 instance
-    "return this languages singleton"
+    "return this language's singleton"
 
     Instance isNil ifTrue:[Instance := self new].
     ^Instance
@@ -181,6 +181,9 @@
 !ProgrammingLanguage class methodsFor:'private'!
 
 instancesDetect: detectBlock ifNone: failBlock
+    "detect a langauge instance for which detectBlock returns true;
+     failBlock otherwise"
+     
     self allSubclasses do:[:cls|
         |inst|
         inst := cls instance.