--- a/HierarchicalListView.st	Fri Nov 15 09:34:42 2002 +0100
+++ b/HierarchicalListView.st	Fri Nov 15 10:22:43 2002 +0100
@@ -1153,13 +1153,13 @@
     ].
 
     aKey == Character space ifTrue:[
-        self indicatorPressedAt:lineNr.
+        item toggleExpand.
         ^ self
     ].
     isCursorLeft := aKey == #CursorLeft.
 
     item isExpanded == isCursorLeft ifTrue:[
-        self indicatorPressedAt:lineNr.
+        item toggleExpand.
         ^ self
     ].
     isCursorLeft ifTrue:[
@@ -1516,5 +1516,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.73 2002-11-15 08:34:42 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.74 2002-11-15 09:22:43 ca Exp $'
 ! !