--- a/SelectionInListView.st	Wed Dec 03 14:53:32 2014 +0100
+++ b/SelectionInListView.st	Wed Dec 03 23:54:29 2014 +0100
@@ -2136,8 +2136,7 @@
 
     |listLine 
      y  "{ Class: SmallInteger }" 
-     y2 "{ Class: SmallInteger }" 
-     wEdge dObj item t|
+     dObj item t|
 
     listLine := self visibleLineToListLine:visLineNr.
     listLine isNil ifTrue:[
@@ -2150,7 +2149,6 @@
     "/ if an explicit drawing block has been defined - let it do it.
     selectedVisualBlock notNil ifTrue:[
         backgroundAlreadyClearedColor == bg ifFalse:[
-Transcript show:'f '; showCR:y.
             self paint:bg.
             self fillRectangleX:margin y:y - (lineSpacing//2)
                           width:(width - (2 * margin)) 
@@ -3606,7 +3604,7 @@
 
     selection isNil ifTrue:[^ nil].
     selection isCollection ifTrue:[
-        selection size == 0 ifTrue:[
+        selection isEmpty ifTrue:[
             ^ nil
         ].
         ^ selection min
@@ -4185,11 +4183,11 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.281 2014-12-03 13:53:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.282 2014-12-03 22:54:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.281 2014-12-03 13:53:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.282 2014-12-03 22:54:29 cg Exp $'
 !
 
 version_HG