--- a/SelectionInListModelView.st	Fri Jun 08 10:52:59 2018 +0200
+++ b/SelectionInListModelView.st	Fri Jun 08 15:22:32 2018 +0200
@@ -2009,8 +2009,10 @@
     item := self at:lineNr ifAbsent:nil.
     item notNil ifTrue:[
         line := item perform:#label ifNotUnderstood:[item displayString].
-        line := line string.
-        line := line withoutSeparators.
+        line isString ifTrue:[
+            line := line string.
+            line := line withoutSeparators.
+        ].
     ].
     line notNil ifTrue:[
         len := self widthOfWidestLineBetween:lineNr and:lineNr.
@@ -2034,7 +2036,7 @@
     ^ text
 
     "Modified: / 20-02-2017 / 10:11:58 / cg"
-    "Modified: / 08-06-2018 / 10:42:27 / Claus Gittinger"
+    "Modified: / 08-06-2018 / 15:21:58 / Claus Gittinger"
 ! !
 
 !SelectionInListModelView methodsFor:'initialization & release'!