--- a/Tools__TagList.st	Tue Dec 23 15:56:09 2014 +0100
+++ b/Tools__TagList.st	Tue Dec 23 18:07:24 2014 +0100
@@ -3172,6 +3172,19 @@
                                             lineNumber:lineNr).
                         ].
                     ].
+                ] ifFalse:[
+                    ((l includesString:'=function') or:[(l includesString:'= function')]) ifTrue:[
+                        (showOnly isNil or:[showOnly == #functions]) ifTrue:[
+                            self hideFunctions ~~ true ifTrue:[
+                                nm := l copyTo:((l indexOf:$=) - 1). nm := nm withoutSeparators.
+                                targets add:(Tag::TFunction 
+                                                label:nm 
+                                                pattern:nil
+                                                type:nil
+                                                lineNumber:lineNr).
+                            ].
+                        ].
+                    ].
                 ].
             ]
         ].
@@ -3980,14 +3993,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.65 2014-11-21 18:15:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.66 2014-12-23 17:07:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.65 2014-11-21 18:15:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.66 2014-12-23 17:07:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.65 2014-11-21 18:15:30 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.66 2014-12-23 17:07:24 cg Exp $'
 ! !