--- a/FontPanel.st	Sun Mar 16 23:46:05 2014 +0100
+++ b/FontPanel.st	Mon Mar 17 02:36:53 2014 +0100
@@ -962,7 +962,7 @@
 !
 
 updateSizeList
-    |sizes sizeStrings|
+    |sizes sizeStrings oldSize|
 
     sizes := self 
             getSizesInFamily:(currentFamily ? '*')
@@ -979,10 +979,13 @@
 
     sizes := sizes asOrderedCollection.
     selectedFont notNil ifTrue:[
+        oldSize := currentSize.
         currentSize := (selectedFont sizeUnit == #px)
                          ifTrue:[ selectedFont pixelSize ]
                          ifFalse:[ selectedFont size ].
-
+        currentSize == 0 ifTrue:[
+            currentSize := oldSize 
+        ].
         (sizes includes:currentSize) ifFalse:[
             sizes add:currentSize
         ].
@@ -1275,10 +1278,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.114 2014-03-16 22:46:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.115 2014-03-17 01:36:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.114 2014-03-16 22:46:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.115 2014-03-17 01:36:53 cg Exp $'
 ! !