--- a/Object.st	Mon Mar 20 09:55:17 2006 +0100
+++ b/Object.st	Mon Mar 20 20:36:49 2006 +0100
@@ -7089,15 +7089,6 @@
     ^ s contents
 ! !
 
-!Object methodsFor:'private'!
-
-isHierarchicalItem
-    "used to decide if the parent is a hierarchical item
-     or the model
-    "
-    ^ false
-! !
-
 !Object methodsFor:'queries'!
 
 basicSize
@@ -8530,6 +8521,12 @@
     ^ false
 !
 
+isHierarchicalItem
+    "used to decide if the parent is a hierarchical item or the model"
+
+    ^ false
+!
+
 isImage
     "return true, if the receiver is some kind of image;
      false is returned here - the method is only redefined in Image."
@@ -9419,7 +9416,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.552 2006-03-15 10:19:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.553 2006-03-20 19:36:49 cg Exp $'
 ! !
 
 Object initialize!