--- a/Tools__LintAnnotation.st	Fri Jan 23 12:43:43 2015 +0100
+++ b/Tools__LintAnnotation.st	Fri Jan 23 13:52:33 2015 +0100
@@ -72,10 +72,20 @@
 !LintAnnotation methodsFor:'help'!
 
 helpTextFor:aView
+    |info|
+
     rule notNil ifTrue:[
+        rule isComposite ifTrue:[
+            info := Character cr ,
+                    ((rule rules collect:[:each | aView resources string:each infoInToolTip] as:Set)
+                        asStringCollection asStringWith:Character cr). 
+        ] ifFalse:[
+            info := aView resources string:rule infoInToolTip
+        ].
+
         ^ aView resources 
                 stringWithCRs:'Lint says: %1' "/ 'Lint says: %1\Click for more info.' 
-                with:(aView resources string:rule name).
+                with:info.
     ].
     ^ nil
 ! !
@@ -97,10 +107,10 @@
 !LintAnnotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.3 2014-12-15 20:27:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.4 2015-01-23 12:52:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.3 2014-12-15 20:27:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.4 2015-01-23 12:52:33 cg Exp $'
 ! !