--- a/InspectorView.st	Wed Feb 02 22:19:05 2000 +0100
+++ b/InspectorView.st	Wed Feb 02 22:24:30 2000 +0100
@@ -524,6 +524,10 @@
     inspectHistory size == 0 ifTrue:[
         m disable:#doBack
     ].
+    self selection class hasImmediateInstances ifTrue:[
+        m disableAll:#(showReferences doNewInspect)
+    ].
+
     ^ m
 
     "Modified: / 22.9.1998 / 22:45:25 / cg"
@@ -1072,6 +1076,9 @@
 showReferences
     "user selected references-menu entry"
 
+    self selection class hasImmediateInstances ifTrue:[
+        ^ self warn:'Sorry - cannot show references to immediate objects'
+    ].
     ObjectMemory displayRefChainTo:(self selection)
 
     "Modified: / 30.7.1998 / 14:03:16 / cg"
@@ -1211,5 +1218,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.103 2000-02-02 21:19:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.104 2000-02-02 21:24:30 cg Exp $'
 ! !