--- a/SelectionInListView.st	Tue Mar 19 14:41:32 2013 +0100
+++ b/SelectionInListView.st	Wed Mar 20 11:34:57 2013 +0100
@@ -2083,7 +2083,7 @@
 
             dObj := selectedVisualBlock value:self value:listLine.
             self paint:fg on:bg.
-            dObj displayOn:self x:textStartLeft y:y + font ascent opaque:true.
+            dObj displayOn:self x:(textStartLeft-viewOrigin x) y:y + font ascent opaque:true.
         ] ifFalse:[
             strikeOut ifTrue:[
                 self drawVisibleLine:visLineNr with:fgColor and:bgColor.
@@ -3378,7 +3378,7 @@
 
             dObj := visualBlock value:self value:listLine.
             self paint:fg on:bg.
-            dObj displayOn:self x:textStartLeft y:y + font ascent opaque:true.
+            dObj displayOn:self x:(textStartLeft - viewOrigin) x y:y + font ascent opaque:true.
             ^ self
         ].
 
@@ -4109,10 +4109,10 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.262 2013-03-06 09:39:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.263 2013-03-20 10:34:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.262 2013-03-06 09:39:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.263 2013-03-20 10:34:57 cg Exp $'
 ! !