--- a/Smalltalk.st	Fri Feb 17 11:07:39 2017 +0100
+++ b/Smalltalk.st	Sun Feb 19 13:22:11 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -2083,47 +2081,55 @@
 !
 
 allClassesDo:aBlock
-    "evaluate the argument, aBlock for all classes in the system."
+    "evaluate the argument, aBlock for all classes in the system.
+     Enumerates non-meta classes only - not metaclasses"
 
     self allClasses do:aBlock
 
     "
      Smalltalk allClassesDo:[:aClass | aClass name printCR]
     "
+
+    "Modified (comment): / 19-02-2017 / 12:38:17 / cg"
 !
 
 allClassesForWhich:filter
     "return a collection with all classes in the system,
-     for which filter evaluates to true."
+     for which filter evaluates to true.
+     Enumerates non-meta classes only - not metaclasses"
 
     |collectedClasses|
 
     collectedClasses := OrderedCollection new.
     self allClassesForWhich:filter do:[:cls |
-	collectedClasses add:cls
+        collectedClasses add:cls
     ].
     ^ collectedClasses
 
     "
      Smalltalk
-	allClassesForWhich:[:cls | cls name startsWith:'Po']
+        allClassesForWhich:[:cls | cls name startsWith:'Po']
     "
 
     "Created: / 10-08-2006 / 12:11:31 / cg"
+    "Modified (comment): / 19-02-2017 / 12:37:49 / cg"
 !
 
 allClassesForWhich:filter do:aBlock
-    "evaluate the argument, aBlock for all classes in the system, for which filter evaluates to true."
+    "evaluate the argument, aBlock for all classes in the system, for which filter evaluates to true.
+     Enumerates non-meta classes only - not metaclasses"
 
     self allClassesDo:[:cls |
-	(filter value:cls) ifTrue:[ aBlock value:cls ].
+        (filter value:cls) ifTrue:[ aBlock value:cls ].
     ].
 
     "
      Smalltalk
-	allClassesForWhich:[:cls | cls name startsWith:'Po']
-	do:[:aClass | Transcript showCR:aClass name]
-    "
+        allClassesForWhich:[:cls | cls name startsWith:'Po']
+        do:[:aClass | Transcript showCR:aClass name]
+    "
+
+    "Modified (comment): / 19-02-2017 / 12:37:59 / cg"
 !
 
 allClassesInCategory:aCategory
@@ -2943,7 +2949,8 @@
 allClasses
     "return an unordered collection of all classes in the system.
      Only globally anchored classes are returned
-     (i.e. anonymous ones have to be acquired by Behavior allSubInstances)"
+     (i.e. anonymous ones have to be acquired by Behavior allSubInstances).
+     Enumerates non-meta classes only - not metaclasses"
 
     |classes|
 
@@ -2989,6 +2996,7 @@
     "
 
     "Modified: / 06-12-2011 / 12:41:42 / cg"
+    "Modified (comment): / 19-02-2017 / 12:38:42 / cg"
 !
 
 allClassesAndMetaclasses
@@ -8701,13 +8709,13 @@
     (lang == #de) ifTrue:[
         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
     ] ifFalse:[ (lang == #fr) ifTrue:[
-        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
+        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #it) ifTrue:[
         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
     ] ifFalse:[ (lang == #es) ifTrue:[
         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #pt) ifTrue:[
-        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
+        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #no) ifTrue:[
         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
     ]]]]]].