--- a/PopUpList.st	Wed Nov 14 12:15:50 2018 +0100
+++ b/PopUpList.st	Wed Nov 28 13:16:38 2018 +0000
@@ -1000,14 +1000,15 @@
             val isNil ifTrue:[
                 newLabel := defaultLabel 
             ] ifFalse:[
-                newLabel := val printString.
+                newLabel := val displayString.
             ].
             ^ self label:newLabel suppressResize:true.
         ].
         self selection:val
     ].
 
-    "Modified: / 18.6.1998 / 23:54:34 / cg"
+    "Modified: / 18-06-1998 / 23:54:34 / cg"
+    "Modified: / 28-11-2018 / 13:10:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 rawLabelSizeOf:aLogo