--- a/extensions.st	Thu Dec 23 16:43:56 2010 +0100
+++ b/extensions.st	Thu Dec 23 16:45:22 2010 +0100
@@ -395,7 +395,7 @@
     "
 ! !
 
-!RunArray methodsFor:'user interface'!
+!RunArray methodsFor:'inspecting'!
 
 inspectorClass
     "Re-reimplemented so that we don't get an ordered collection inspector
@@ -415,6 +415,16 @@
     ^ SetInspectorView
 ! !
 
+!SharedPool class methodsFor:'inspecting'!
+
+inspectorClass
+    "{ Pragma: +optSpace }"
+
+    "redefined to launch a DictionaryInspector (instead of the default Inspector)."
+
+    ^ DictionaryInspectorView
+! !
+
 !Smalltalk class methodsFor:'inspecting'!
 
 inspectorClass
@@ -446,5 +456,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.28 2009-12-16 17:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.29 2010-12-23 15:45:22 cg Exp $'
 ! !
\ No newline at end of file