--- a/SelectionInListView.st	Mon Sep 28 18:18:41 1998 +0200
+++ b/SelectionInListView.st	Tue Sep 29 14:17:48 1998 +0200
@@ -1838,17 +1838,19 @@
 !
 
 showDraggingIn:aView at:p
-    |items offs|
+    |nItems items offs|
 
     items := self selectionValueAsCollection.
-    items size > 1 ifTrue:[
+    (nItems := items size) > 1 ifTrue:[
         offs := 0.
         items do:[:item |
             item displayOn:aView at:p + (0@offs).
             offs := offs + (item heightOn:self)
         ]
     ] ifFalse:[
-        items first displayOn:aView at:p.
+        nItems ~~ 0 ifTrue:[
+            items first displayOn:aView at:p.
+        ]
     ]
 
     "Created: 14.11.1996 / 15:31:31 / cg"
@@ -3573,5 +3575,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.134 1998-09-15 17:06:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.135 1998-09-29 12:17:48 cg Exp $'
 ! !