--- a/DeviceWorkstation.st	Wed Jul 24 23:02:21 2013 +0200
+++ b/DeviceWorkstation.st	Fri Jul 26 16:25:20 2013 +0200
@@ -5395,27 +5395,27 @@
     |fonts|
 
     fonts := self
-		fontsInFamily:aFamilyName face:aFaceName style:aStyleName
-		filtering:[:f |
-		    f size notNil
-		    and:[filterBlock isNil or:[filterBlock value:f]]
-		].
+                fontsInFamily:aFamilyName face:aFaceName style:aStyleName
+                filtering:[:f |
+                    f size notNil
+                    and:[filterBlock isNil or:[filterBlock value:f]]
+                ].
     fonts size == 0 ifTrue:[^ nil].
 
-    ^ fonts collect:[:descr | descr pixelSize "height"].
+    ^ fonts collect:[:descr | descr pixelSize "height"] thenSelect:[:pixelSize| pixelSize notNil].
 
     "
      Display
-	pixelSizesInFamily:'fixed' face:'medium' style:'roman'
-	filtering:[:f |
-	    f encoding notNil and:[f encoding startsWith:'jis']
-	]
+        pixelSizesInFamily:'fixed' face:'medium' style:'roman'
+        filtering:[:f |
+            f encoding notNil and:[f encoding startsWith:'jis']
+        ]
 
      Display
-	pixelSizesInFamily:'arial' face:'medium' style:'roman'
-	filtering:[:f |
-	    f encoding == #'ms-ansi'
-	]
+        pixelSizesInFamily:'arial' face:'medium' style:'roman'
+        filtering:[:f |
+            f encoding == #'ms-ansi'
+        ]
     "
 
     "Created: 27.2.1996 / 01:37:56 / cg"
@@ -8248,11 +8248,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.588 2013-07-22 09:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.589 2013-07-26 14:25:20 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.588 2013-07-22 09:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.589 2013-07-26 14:25:20 stefan Exp $'
 ! !