--- a/DictInspV.st	Fri Jul 23 09:23:28 1999 +0200
+++ b/DictInspV.st	Fri Jul 23 10:39:38 1999 +0200
@@ -257,7 +257,14 @@
 !DictionaryInspectorView methodsFor:'private'!
 
 baseInspectedObjectClass
+
+    (inspectedObject class inheritsFrom:Dictionary) ifFalse:[
+        "this is true for e.g. MethodDictionary"
+        ^ Object
+    ].
     ^ Dictionary
+
+    "Modified: / 23.7.1999 / 10:39:11 / stefan"
 !
 
 defaultLabel
@@ -395,5 +402,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.42 1999-07-16 20:05:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.43 1999-07-23 08:39:38 stefan Exp $'
 ! !

--- a/DictionaryInspectorView.st	Fri Jul 23 09:23:28 1999 +0200
+++ b/DictionaryInspectorView.st	Fri Jul 23 10:39:38 1999 +0200
@@ -257,7 +257,14 @@
 !DictionaryInspectorView methodsFor:'private'!
 
 baseInspectedObjectClass
+
+    (inspectedObject class inheritsFrom:Dictionary) ifFalse:[
+        "this is true for e.g. MethodDictionary"
+        ^ Object
+    ].
     ^ Dictionary
+
+    "Modified: / 23.7.1999 / 10:39:11 / stefan"
 !
 
 defaultLabel
@@ -395,5 +402,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.42 1999-07-16 20:05:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.43 1999-07-23 08:39:38 stefan Exp $'
 ! !