--- a/Tools__TagList.st	Tue May 07 15:16:27 2013 +0200
+++ b/Tools__TagList.st	Tue May 07 17:28:52 2013 +0200
@@ -3570,7 +3570,7 @@
             l := line withoutSeparators.
 
             (l startsWith:'proc ') ifTrue:[
-                nm := l copyFrom:6.
+                nm := l withoutPrefix:'proc '.
                 targets add:(Tag::TFunction 
                                 label:nm 
                                 pattern:nil
@@ -3659,14 +3659,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.26 2013-04-25 13:11:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.27 2013-05-07 15:28:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.26 2013-04-25 13:11:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.27 2013-05-07 15:28:52 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: Tools__TagList.st,v 1.27 2013-05-07 15:28:52 cg Exp $'
 ! !