--- a/SharedPool.st	Tue Nov 09 13:54:57 2010 +0000
+++ b/SharedPool.st	Tue Nov 09 16:24:28 2010 +0000
@@ -57,6 +57,17 @@
     self classVarAt:constantName put:value.
 ! !
 
+!SharedPool class methodsFor:'misc ui support'!
+
+iconInBrowserSymbol
+    <resource: #programImage>
+
+    self == SharedPool ifTrue:[^ super iconInBrowserSymbol].
+    ^ #sharedPoolBrowserIcon
+
+    "Created: / 14-10-2010 / 12:04:32 / cg"
+! !
+
 !SharedPool class methodsFor:'name lookup'!
 
 at:name
@@ -149,17 +160,18 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Id: SharedPool.st 10564 2010-08-10 08:55:15Z vranyj1 $'
+    ^ '$Id: SharedPool.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.9 2010/08/08 12:46:20 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.10 2010-10-14 10:05:04 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: SharedPool.st 10564 2010-08-10 08:55:15Z vranyj1 $'
+    ^ '$Id: SharedPool.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 ! !
 
 
 
 
+