--- a/ToolApplicationModel.st	Fri Feb 28 16:31:25 2014 +0100
+++ b/ToolApplicationModel.st	Tue Mar 04 16:06:17 2014 +0100
@@ -100,7 +100,7 @@
                 src := docMethod source.
                 src notNil ifTrue:[
                     s := src readStream.
-                    s upToAll:'[author:]'.
+                    s upToAllExcluding:'[author:]'.
                     s nextLine.   "/ skip to end
                     line := s nextLine.   "/ line after [author:]
                     lines := OrderedCollection new.
@@ -1644,6 +1644,6 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.145 2014-02-05 10:03:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.146 2014-03-04 15:06:17 stefan Exp $'
 ! !