--- a/ChangesBrowser.st	Tue Feb 26 14:07:21 2002 +0100
+++ b/ChangesBrowser.st	Wed Feb 27 11:22:32 2002 +0100
@@ -2162,7 +2162,7 @@
                             (chunkText startsWith:'''---- snap') ifTrue:[
                                 changeType := ''.
                                 headerLine := chunkText.
-                                changeString := (chunkText contractTo:maxLen).
+                                changeString := (chunkText contractTo:maxLen) withoutSeparators.
                                 timeStampInfo := nil.
                             ] ifFalse:[
 
@@ -2178,7 +2178,7 @@
                                 ] ifFalse:[
                                     changeType := '(doIt)'.
                                 ].    
-                                changeString := (chunkText contractTo:maxLen).
+                                changeString := (chunkText contractTo:maxLen) withoutSeparators.
 
                                 p := Parser parseExpression:fullChunkText inNameSpace:Smalltalk.
                                 (p notNil and:[p ~~ #Error]) ifTrue:[
@@ -4880,5 +4880,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.258 2002-02-26 13:06:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.259 2002-02-27 10:22:32 cg Exp $'
 ! !