--- a/OrderedCollectionInspectorView.st	Mon Feb 01 15:58:09 2010 +0100
+++ b/OrderedCollectionInspectorView.st	Mon Feb 01 15:58:11 2010 +0100
@@ -56,7 +56,13 @@
     items := #(
                   ('Inspect'                     doInspect              )
                   ('BasicInspect'                doBasicInspect         )
-                  ('Inspect hierarchical'        doNewInspect           )
+             ).
+    NewInspector::NewInspectorView notNil ifTrue:[
+        items := items , #(
+                       ('Inspect Hierarchical'         #doNewInspect           )
+                ).
+    ].
+    items := items , #(
                   ('-')
                   ('Owners'                      showOwners             )
                   ('Ref chains'                  showReferences         )
@@ -193,5 +199,9 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.40 2008-01-27 16:05:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.41 2010-02-01 14:58:11 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.41 2010-02-01 14:58:11 cg Exp $'
 ! !