--- a/ListModelView.st	Tue Feb 03 17:36:46 2015 +0100
+++ b/ListModelView.st	Wed Feb 04 13:17:23 2015 +0100
@@ -1911,7 +1911,13 @@
     y0 := yTop.
 
     anItem isHierarchicalItem ifTrue:[
-        anItem displayOn:view x:x0 y:y0 h:h isHighlightedAsSelected:isHighlightedAsSelected
+        (anItem class whichClassIncludesSelector:#displayOn:x:y:h:) ~~ HierarchicalItem ifTrue:[
+            "/ it has a redefined display.
+            Transcript showCR:'please define #displayOn:x:y:h:isHighlightedAsSelected: in ',anItem class name.
+            anItem displayOn:view x:x0 y:y0 h:h 
+        ] ifFalse:[        
+            anItem displayOn:view x:x0 y:y0 h:h isHighlightedAsSelected:isHighlightedAsSelected
+        ].
     ] ifFalse:[
         anItem isNil ifTrue:[^ self].
 
@@ -3394,11 +3400,11 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.149 2015-02-01 13:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.150 2015-02-04 12:17:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.149 2015-02-01 13:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.150 2015-02-04 12:17:23 cg Exp $'
 ! !