--- a/ListView.st	Tue Apr 23 19:19:21 2019 +0200
+++ b/ListView.st	Tue Apr 23 20:38:18 2019 +0200
@@ -985,23 +985,24 @@
     "Modified: / 04-07-2006 / 19:18:47 / fm"
 !
 
-contents:something
+contents:aStringOrStringCollection
     "set the contents (either a String or a Collection of strings)
      also scroll to top. See #setContents:, which does not scroll.
      If the argument is a string, it is converted
      to a collection of line-strings here."
 
-    |l|
-
-    l := something.
-    l notNil ifTrue:[
-	l isString ifTrue:[
-	    l := l asStringCollection
-	]
+    |listOfLines|
+
+    listOfLines := aStringOrStringCollection.
+    listOfLines notNil ifTrue:[
+        listOfLines isString ifTrue:[
+            listOfLines := listOfLines asStringCollection.
+        ]
     ].
-    self list:l
-
-    "Modified: 5.6.1997 / 11:11:54 / cg"
+    self list:listOfLines
+
+    "Modified: / 05-06-1997 / 11:11:54 / cg"
+    "Modified (comment): / 23-04-2019 / 20:37:54 / Claus Gittinger"
 !
 
 from:from to:to do:aBlock