--- a/extensions.st	Wed Oct 04 14:42:40 2006 +0200
+++ b/extensions.st	Wed Oct 04 14:44:41 2006 +0200
@@ -237,6 +237,26 @@
 
 ! !
 
+!Object methodsFor:'debugging'!
+
+inspectorExtraAttributes
+    "Answers a dictionary of aString -> aBlock.
+     aString is name of extra attribute and MUST start with minus ($-).
+     aBlock returns the object representing extra attribute."
+
+    ^Dictionary new
+
+    " Try to uncomment following and inspect any object "
+
+"/    ^Dictionary new
+"/        add:'-test' -> ['TEST TEST'];
+"/        yourself
+
+    "Created: / 16-08-2005 / 20:43:33 / janfrog"
+    "Modified: / 02-09-2005 / 19:00:01 / janfrog"
+    "Modified: / 04-10-2006 / 14:33:34 / cg"
+! !
+
 !OrderedCollection methodsFor:'inspecting'!
 
 inspectorClass