--- a/InspectorView.st	Fri Mar 23 19:18:39 2001 +0100
+++ b/InspectorView.st	Mon Mar 26 17:47:38 2001 +0200
@@ -253,12 +253,12 @@
 
     |aList sameObject|
 
-    sameObject := anObject == inspectedObject.
+    sameObject := anObject == inspectedObject and:[inspectedObject notNil].
     inspectedObject := object := anObject.
 
     sameObject ifFalse:[
         hasMore := false.
-        aList := self fieldList.
+        aList := self fieldList.                               
         hasMore ifTrue:[
             aList add:' ... '
         ].
@@ -882,7 +882,7 @@
 
     |aList n cls|
 
-    inspectedObject isNil ifTrue:[^ #()].
+    inspectedObject isNil ifTrue:[^ hideReceiver ifTrue:[#()] ifFalse:[#('self')]].
 
     cls := inspectedObject class.
 
@@ -890,7 +890,7 @@
         aList := self namedFieldList.
         hideReceiver ifFalse:[aList addFirst:'self'].
 
-        aList addAll:(self indexedFieldList).
+        aList addAll:(self indexedFieldList).                             
     ].
     ^ aList
 
@@ -1320,5 +1320,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.110 2000-11-16 16:14:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.111 2001-03-26 15:47:38 stefan Exp $'
 ! !