--- a/SelectionInListModelView.st	Sat Jun 09 11:04:27 2018 +0200
+++ b/SelectionInListModelView.st	Sun Jun 10 18:36:41 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -2014,7 +2016,7 @@
     item := self at:lineNr ifAbsent:nil.
     item notNil ifTrue:[
         line := item perform:#label ifNotUnderstood:[item displayString].
-        line isString ifTrue:[
+        (line isString or:[line isLabelAndIcon]) ifTrue:[
             line := line string.
             line := line withoutSeparators.
         ].
@@ -2022,7 +2024,9 @@
     line notNil ifTrue:[
         len := self widthOfWidestLineBetween:lineNr and:lineNr.
         len > width ifTrue:[
-            text := line collect:[:ch | ch isSeparator ifTrue:[Character space] ifFalse:[ch]].
+            (line isString or:[line isLabelAndIcon]) ifTrue:[
+                text := line string collect:[:ch | ch isSeparator ifTrue:[Character space] ifFalse:[ch]].
+            ].
         ].
     
         "/ a hack; maybe we'll find a better solution...
@@ -2041,7 +2045,7 @@
     ^ text
 
     "Modified: / 20-02-2017 / 10:11:58 / cg"
-    "Modified: / 08-06-2018 / 15:21:58 / Claus Gittinger"
+    "Modified: / 10-06-2018 / 18:35:41 / Claus Gittinger"
 ! !
 
 !SelectionInListModelView methodsFor:'initialization & release'!