--- a/SmallSense__PO.st	Sat May 02 22:13:59 2015 +0200
+++ b/SmallSense__PO.st	Sat May 02 23:00:27 2015 +0200
@@ -20,7 +20,7 @@
 
 "{ NameSpace: SmallSense }"
 
-HierarchicalItem subclass:#PO
+CompactHierarchicalItem subclass:#PO
 	instanceVariableNames:'label relevance context'
 	classVariableNames:'IconWidth'
 	poolDictionaries:''
@@ -142,6 +142,24 @@
     "Created: / 13-08-2014 / 22:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PO class methodsFor:'queries'!
+
+whichClassIncludesSelector:selector
+
+    "/ Temporary hack to avoid messages
+    "/ 
+    "/     please define #displayOn:x:y:h:isHighlightedAsSelected: in SmallSense::ClassPO
+    "/ 
+    "/ being printed on transcript. See the buggy code in
+    "/ ListModelView::Renderer>>display:anItem atX:xLeft y:yTop lineHeight:h
+    "/ 
+    "/ Sigh!!
+    selector == #displayOn:x:y:h: ifTrue:[ ^ HierarchicalItem ].
+    ^ super whichClassIncludesSelector:selector
+
+    "Created: / 02-05-2015 / 22:57:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PO methodsFor:'accessing'!
 
 context