--- a/UIHelpTool.st	Wed Sep 10 10:36:23 1997 +0200
+++ b/UIHelpTool.st	Mon Sep 15 23:47:24 1997 +0200
@@ -414,7 +414,7 @@
         |t|
         src nextPutLine:key storeString.
 
-        t := txt asString replaceAll:(Character cr) by:(Character space).
+        t := txt asString replaceAll:(Character cr) with:(Character space).
 
         (t endsWith:Character space) ifTrue:[
             t := t copyWithoutLast:1