--- a/extensions.st	Thu Mar 26 11:15:46 2015 +0100
+++ b/extensions.st	Thu Mar 26 11:18:10 2015 +0100
@@ -1482,7 +1482,7 @@
     ^ #notificationClassBrowserIcon
 ! !
 
-!Object methodsFor:'debugging'!
+!Object methodsFor:'misc ui support'!
 
 inspect
     "{ Pragma: +optSpace }"
@@ -1628,6 +1628,19 @@
     "Modified: / 04-02-2015 / 15:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Object methodsFor:'misc ui support'!
+
+inspectorClass
+    "{ Pragma: +optSpace }"
+
+    "return the class to use for inspect.
+     Can (should) be redefined in classes for which a better inspector is available"
+
+    ^ Inspector ? InspectorView
+
+    "Modified: / 08-03-2012 / 16:09:38 / cg"
+! !
+
 !Object methodsFor:'debugging'!
 
 inspectorExtraAttributes
@@ -2703,7 +2716,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.151 2015-03-26 10:12:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.152 2015-03-26 10:18:10 cg Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!