--- a/ToolApplicationModel.st	Tue Jan 17 13:12:39 2006 +0100
+++ b/ToolApplicationModel.st	Tue Jan 17 13:12:52 2006 +0100
@@ -84,7 +84,7 @@
                 s nextLine.   "/ skip to end
                 line := s nextLine.   "/ line after [author:]
                 lines := OrderedCollection new.
-                [line notNil and:[line notEmpty]] whileTrue:[
+                [line notEmptyOrNil] whileTrue:[
                     line := line withoutSeparators.
                     line size > 1 ifTrue:[
                         lines add:line withoutSeparators.
@@ -1430,5 +1430,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.122 2004-07-03 17:11:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.123 2006-01-17 12:12:52 cg Exp $'
 ! !