# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 900933504 -7200
# Node ID 0e732b71675992eaf968ec04b5a74b344f3533cc
# Parent  69269bc88320c98ec053ac98436102a4921ff83a
use #copyReplaceAll:with:

diff -r 69269bc88320 -r 0e732b716759 UIHelpTool.st
--- a/UIHelpTool.st	Sat Jul 18 20:02:51 1998 +0200
+++ b/UIHelpTool.st	Mon Jul 20 13:18:24 1998 +0200
@@ -820,11 +820,14 @@
     "unformats aHelpText and returns it"
 
     |helpText|
-    helpText := aHelpText asString replaceAll: Character cr with: Character space.
-    (helpText endsWith:Character space) ifTrue:[
+
+    helpText := aHelpText asString copyReplaceAll:(Character cr) with:(Character space).
+    (helpText endsWith:(Character space)) ifTrue:[
         helpText := helpText copyWithoutLast:1
     ].
-    ^helpText
+    ^ helpText
+
+    "Modified: / 20.7.1998 / 13:17:52 / cg"
 !
 
 installHelpSpecOnClass:aClass