--- a/SelectionInListView.st	Sat May 07 06:52:44 2016 +0200
+++ b/SelectionInListView.st	Mon May 09 21:43:19 2016 +0200
@@ -2817,7 +2817,7 @@
     lineNr notNil ifTrue:[
         len := self widthOfLine:lineNr.
         len > width ifTrue:[
-            ^ (self listAt:lineNr) collect:[:ch | ch isSeparator ifTrue:[$ ] ifFalse:[ch]]  
+            ^ (self listAt:lineNr) string collect:[:ch | ch isSeparator ifTrue:[$ ] ifFalse:[ch]]  
         ].      
     ].
     ^ nil