--- a/Tools__TagList.st	Sun May 11 13:33:42 2014 +0200
+++ b/Tools__TagList.st	Sun May 11 17:02:32 2014 +0200
@@ -3089,7 +3089,7 @@
         ;;; more        documentation
     "
 
-    |l nm words def arg inParens rest|
+    |l nm words def inParens rest|
 
     l := line withoutSeparators.
 
@@ -3100,6 +3100,7 @@
         (l startsWith:';;;') ifFalse:[^ nil].
         rest := (l copyFrom:4) withoutSeparators.
         rest isEmpty ifTrue:[^ nil].
+        (rest conform:[:ch | ch = $;]) ifTrue:[^ nil].
         ^ Tag::TDocumentation 
                         label:(rest colorizeAllWith:(Color blue "grey")) 
                         pattern:nil
@@ -3116,7 +3117,6 @@
         nm := nm copyFrom:2.
     ] ifFalse:[
         nm := nm upTo:$(.    "/ in case it is (define foo() - without space after name
-        arg := l copyFrom:(l indexOf:$( startingAt:2 ifAbsent:2).   
         (inParens := nm startsWith:'(') ifTrue:[
             nm := nm copyFrom:2.
         ].
@@ -3247,7 +3247,7 @@
     def = 'eval-when' ifTrue:[
         self hideLispEvaluations == true ifTrue:[ ^ nil ].
         ^ Tag::TLispEval 
-                        label:arg 
+                        label:nm 
                         pattern:nil
                         type:nil
                         lineNumber:lineNr.
@@ -3865,14 +3865,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.44 2014-05-10 18:01:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.45 2014-05-11 15:02:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.44 2014-05-10 18:01:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.45 2014-05-11 15:02:32 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.44 2014-05-10 18:01:34 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.45 2014-05-11 15:02:32 cg Exp $'
 ! !