--- a/HierarchicalListView.st	Wed Jan 28 07:08:23 2004 +0100
+++ b/HierarchicalListView.st	Wed Jan 28 07:09:01 2004 +0100
@@ -1564,7 +1564,10 @@
     (shown and:[aLnrNr notNil]) ifFalse:[^ self].
 
     aLnrNr <= 1 ifTrue:[
-        aLnrNr == 1 ifTrue:[ self scrollTo:(0 @ 0) ].
+        aLnrNr == 1 ifTrue:[
+            newX := self computeViewOriginXat:1.
+            self scrollTo:(newX @ 0).
+        ].
         ^ self
     ].
 
@@ -1592,5 +1595,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.87 2003-12-19 08:41:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.88 2004-01-28 06:09:01 ca Exp $'
 ! !