--- a/InspectorView.st	Tue May 07 18:58:28 2013 +0200
+++ b/InspectorView.st	Tue May 07 20:11:52 2013 +0200
@@ -2479,7 +2479,7 @@
     |valString|
 
     valString := (self plainValueStringInListEntryForValue:value) ? ''.
-    value == inspectedObject ifTrue:[
+    (inspectedObject notNil and:[value == inspectedObject]) ifTrue:[
         ^ ' <',valString,' (==self)>' 
     ].
     ^ ' <',valString,'>'
@@ -3507,10 +3507,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.307 2013-04-23 16:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.307 2013-04-23 16:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $'
 ! !