--- a/Tools__VariableList.st	Fri Nov 18 15:05:39 2011 +0100
+++ b/Tools__VariableList.st	Fri Nov 18 15:05:47 2011 +0100
@@ -682,13 +682,15 @@
 !
 
 icon
-
-    icon ifNil:[icon := application iconInBrowserForVariable: name in: class].
-    icon ifNil:[icon := #NOICON].        
+    icon isNil ifTrue:[
+        icon := application iconInBrowserForVariable: name in: class.
+        icon isNil ifTrue:[icon := #NOICON].        
+    ].
     ^icon
 
     "Created: / 12-04-2011 / 15:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 12-04-2011 / 19:58:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 15:05:18 / cg"
 !
 
 klass
@@ -729,5 +731,5 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.12 2011-08-08 16:28:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.13 2011-11-18 14:05:47 cg Exp $'
 ! !