--- a/extensions.st	Wed Jul 31 19:12:33 2019 +0200
+++ b/extensions.st	Wed Jul 31 22:48:11 2019 +0200
@@ -2914,6 +2914,41 @@
     ^ #windowClassBrowserIcon
 ! !
 
+!SmallDictionary methodsFor:'inspecting'!
+
+inspector2TabLabel
+    "label of the main tab"
+
+    ^ 'SmallDictionary'
+! !
+
+!SmallDictionary methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    |attrs|
+
+    attrs := super inspectorExtraAttributes.
+    JSONPrinter notNil ifTrue:[
+        attrs add:('-JSON' -> [ JSONPrinter toJSON:self ])
+    ].
+    ^ attrs
+
+    "Created: / 12-06-2018 / 11:43:57 / Claus Gittinger"
+! !
+
+!SmallDictionary methodsFor:'inspecting'!
+
+inspectorValueListIconFor:anInspector
+    "returns the icon to be shown alongside the value list of an inspector"
+
+    self isEmpty ifTrue:[
+        ^ anInspector imageFor_collections_empty
+    ].    
+    ^ anInspector imageFor_dictionaries
+
+
+! !
+
 !SmallInteger methodsFor:'inspecting'!
 
 inspectorExtraAttributes