--- a/FontPanel.st	Tue Mar 21 11:48:00 2000 +0100
+++ b/FontPanel.st	Tue Mar 21 20:49:04 2000 +0100
@@ -553,7 +553,7 @@
     sizeList list:sizes.
     currentSize notNil ifTrue:[
         (sizes includes:(currentSize printString)) ifTrue:[
-            sizeList setSelectElement:currentSize.
+            sizeList setSelectElement:currentSize printString.
             self showPreview
         ]
     ]
@@ -640,5 +640,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.45 1999-08-18 14:49:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.46 2000-03-21 19:49:04 cg Exp $'
 ! !