--- a/DeviceWorkstation.st	Thu Dec 07 15:03:06 2017 +0100
+++ b/DeviceWorkstation.st	Tue Dec 19 09:32:23 2017 +0100
@@ -5446,22 +5446,23 @@
 
 fontsInFamily:aFamilyName face:aFaceName filtering:filter
     "return a set of all available fonts in aFamily/aFace on this display.
-     But only thise matching filter (if nonNil)."
+     But only those matching filter (if nonNil)."
 
     ^ self
-	fontsFiltering:[:fntDescr |
-	    (aFamilyName match:fntDescr family caseSensitive:false)
-	    and:[ (aFaceName match:fntDescr face caseSensitive:false)
-	    and:[ (filter isNil or:[filter value:fntDescr]) ]]
-	]
+        fontsFiltering:[:fntDescr |
+            (aFamilyName match:fntDescr family caseSensitive:false)
+            and:[ (aFaceName match:fntDescr face caseSensitive:false)
+            and:[ (filter isNil or:[filter value:fntDescr]) ]]
+        ]
 
     "
      Display fontsInFamily:'fixed' face:'medium' filtering:[:f |
-	f encoding notNil and:[f encoding startsWith:'jis']]
-    "
-
-    "Created: 29.2.1996 / 04:32:56 / cg"
-    "Modified: 30.6.1997 / 11:07:21 / cg"
+        f encoding notNil and:[f encoding startsWith:'jis']]
+    "
+
+    "Created: / 29-02-1996 / 04:32:56 / cg"
+    "Modified: / 30-06-1997 / 11:07:21 / cg"
+    "Modified (comment): / 19-12-2017 / 09:20:39 / mawalch"
 !
 
 fontsInFamily:aFamilyName face:aFaceName style:aStyleName filtering:filter
@@ -5692,27 +5693,28 @@
 
 stylesInFamily:aFamilyName face:aFaceName filtering:filterBlock
     "return a set of all available font styles in aFamily/aFace on this display.
-     But only thise matching filterBlock (if notNil)."
+     But only those matching filterBlock (if notNil)."
 
     |fonts|
 
     fonts := self
-		fontsInFamily:aFamilyName face:aFaceName
-		filtering:[:f|
-				f style notNil
-				and:[filterBlock isNil or:[filterBlock value:f]]
-			  ].
+                fontsInFamily:aFamilyName face:aFaceName
+                filtering:[:f|
+                                f style notNil
+                                and:[filterBlock isNil or:[filterBlock value:f]]
+                          ].
     fonts size == 0 ifTrue:[^ nil].
 
     ^ fonts collect:[:descr | descr style]
 
     "
      Display stylesInFamily:'fixed' face:'medium' filtering:[:f |
-	f encoding notNil and:[f encoding startsWith:'jis']]
-    "
-
-    "Created: 27.2.1996 / 01:35:22 / cg"
-    "Modified: 29.2.1996 / 04:33:59 / cg"
+        f encoding notNil and:[f encoding startsWith:'jis']]
+    "
+
+    "Created: / 27-02-1996 / 01:35:22 / cg"
+    "Modified: / 29-02-1996 / 04:33:59 / cg"
+    "Modified (comment): / 19-12-2017 / 09:20:43 / mawalch"
 !
 
 widthOf:aString from:index1 to:index2 inFont:aFontId