--- a/ClassDescription.st	Tue Jul 12 19:34:40 2011 +0200
+++ b/ClassDescription.st	Wed Jul 13 15:32:55 2011 +0200
@@ -820,6 +820,7 @@
     "Created: / 28.3.1998 / 21:21:52 / cg"
 ! !
 
+
 !ClassDescription methodsFor:'Compatibility-V''Age'!
 
 categoriesFor:aSelector are:listOfCategories
@@ -2426,6 +2427,30 @@
     XMLCoder putQuotedString:someString on:aStream
 ! !
 
+!ClassDescription methodsFor:'misc'!
+
+iconInBrowserForVariableNamed: varName
+    "variables for which an entry is found in the xml-spec (if any) are marked
+     with an <xml>-icon. 
+     For now, this is expecco-specific, but should be somehow lifted to the base system"
+
+    (Expecco::ExpeccoXMLDecoder notNil 
+    and:[self canUnderstand: #xmlSpecFor:]) ifTrue:[
+        Error handle:[:ex |
+        ] do:[
+            (Expecco::ExpeccoXMLDecoder xmlSpecForObject:self basicNew)
+                do:[:spec | spec getter = varName ifTrue:[
+                                ^ SystemBrowser instVarOverlayXmlSpec
+                            ]
+                ].
+        ].
+    ].
+    ^ nil
+
+    "Created: / 12-04-2011 / 16:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-07-2011 / 15:31:38 / cg"
+! !
+
 !ClassDescription methodsFor:'printOut'!
 
 nameWithNameSpacePrefix
@@ -4105,11 +4130,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.215 2011-01-18 17:07:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.216 2011-07-13 13:32:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.215 2011-01-18 17:07:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.216 2011-07-13 13:32:55 cg Exp $'
 ! !
 
 ClassDescription initialize!