--- a/ContextInspectorView.st	Mon Feb 01 15:58:06 2010 +0100
+++ b/ContextInspectorView.st	Mon Feb 01 15:58:09 2010 +0100
@@ -384,7 +384,13 @@
                    ('-')
                    ('Inspect'               #doInspect)
                    ('BasicInspect'          #doBasicInspect)
-                   ('Inspect Hierarchical'  #doNewInspect)
+             ).
+    NewInspector::NewInspectorView notNil ifTrue:[
+        items := items , #(
+                       ('Inspect Hierarchical'         #doNewInspect           )
+                ).
+    ].
+    items := items , #(
                    ('-')
                    ('Browse'                #browse)
               ).
@@ -650,9 +656,9 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.71 2009-10-22 12:40:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.72 2010-02-01 14:58:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.71 2009-10-22 12:40:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.72 2010-02-01 14:58:09 cg Exp $'
 ! !