--- a/ClassDescription.st	Mon Sep 15 22:20:52 1997 +0200
+++ b/ClassDescription.st	Mon Sep 15 22:24:58 1997 +0200
@@ -1051,7 +1051,7 @@
     |aStream fileName|
 
     fileName := self name , '-' , aCategory , '.st'.
-    fileName replaceAll:(Character space) by:$_.
+    fileName replaceAll:(Character space) with:$_.
 
     "
      this test allows a smalltalk to be built without Projects/ChangeSets
@@ -1182,7 +1182,7 @@
     selector := self selectorAtMethod:aMethod.
     selector notNil ifTrue:[
         fileName := self name , '-' , selector, '.st'.
-        fileName replaceAll:$: by:$_.
+        fileName replaceAll:$: with:$_.
         "
          this test allows a smalltalk to be built without Projects/ChangeSets
         "
@@ -2523,6 +2523,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.53 1997-09-02 17:40:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.54 1997-09-15 20:24:58 cg Exp $'
 ! !
 ClassDescription initialize!