--- 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