--- a/UninterpretedBytes.st	Fri Apr 11 01:08:35 2003 +0200
+++ b/UninterpretedBytes.st	Fri Apr 11 01:08:52 2003 +0200
@@ -2087,13 +2087,15 @@
 !UninterpretedBytes methodsFor:'filling & replacing'!
 
 replaceBytesFrom:start to:stop with:sourceBytes startingAt:sourceIndex
-    |srcIdx|
+    self replaceFrom:start to:stop with:sourceBytes startingAt:sourceIndex
 
-    srcIdx := sourceIndex.
-    start to:stop do:[:dstIdx |
-        self at:dstIdx put:(sourceBytes at:srcIdx).
-        srcIdx := srcIdx + 1
-    ].
+"/    |srcIdx|
+"/
+"/    srcIdx := sourceIndex.
+"/    start to:stop do:[:dstIdx |
+"/        self at:dstIdx put:(sourceBytes at:srcIdx).
+"/        srcIdx := srcIdx + 1
+"/    ].
 ! !
 
 !UninterpretedBytes methodsFor:'misc'!
@@ -2128,5 +2130,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.42 2002-11-22 12:15:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.43 2003-04-10 23:08:52 cg Exp $'
 ! !