--- a/HierarchicalListView.st	Thu Feb 13 19:38:46 2014 +0100
+++ b/HierarchicalListView.st	Thu Feb 13 19:44:27 2014 +0100
@@ -308,7 +308,7 @@
 
     |root|
 
-    (aFont notNil and:[aFont ~= font]) ifTrue:[
+    (aFont notNil and:[aFont ~= gc font]) ifTrue:[
         root := self root.
         root notNil ifTrue:[root fontChanged].
         super font:aFont
@@ -1680,10 +1680,10 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.129 2014-01-20 13:46:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.130 2014-02-13 18:44:27 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.129 2014-01-20 13:46:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.130 2014-02-13 18:44:27 stefan Exp $'
 ! !