--- a/HierarchicalListView.st	Sun Jun 22 11:09:54 2014 +0200
+++ b/HierarchicalListView.st	Mon Jun 23 11:54:13 2014 +0200
@@ -1073,7 +1073,7 @@
 
 validateDrawableIconFor:anItem
     "returns the icon to be drawn for an item or nil
-     test the extent of the icopn; on error an exception is raised
+     test the extent of the icon; on error an exception is raised
     "
     |width needMore icon maxLevel startOfText oldX newX|
 
@@ -1408,15 +1408,15 @@
     image := self iconFor:anItem.
 
     image notNil ifTrue:[
-	height := image height max:height.
+        height := image height max:height.
     ].
 
     hasConstantHeight ifTrue:[
-	icons size ~~ 0 ifTrue:[
-	    icons do:[:anIcon| height := anIcon height max:height ]
-	] ifFalse:[
-	    image isNil ifTrue:[ height := height max:16 ]
-	]
+        icons size ~~ 0 ifTrue:[
+            icons do:[:anIcon| height := anIcon height max:height ]
+        ] ifFalse:[
+            image isNil ifTrue:[ height := height max:16 ]
+       ]
     ].
     height := height + lineSpacing.
     ^ height max:indicatorHeight
@@ -1708,10 +1708,10 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.133 2014-05-23 18:57:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.134 2014-06-23 09:54:13 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.133 2014-05-23 18:57:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.134 2014-06-23 09:54:13 stefan Exp $'
 ! !