--- a/UninterpretedBytes.st	Mon May 05 14:58:46 2003 +0200
+++ b/UninterpretedBytes.st	Tue May 06 14:17:01 2003 +0200
@@ -2087,15 +2087,13 @@
 !UninterpretedBytes methodsFor:'filling & replacing'!
 
 replaceBytesFrom:start to:stop with:sourceBytes startingAt:sourceIndex
-    self replaceFrom:start to:stop with:sourceBytes startingAt:sourceIndex
+    |srcIdx|
 
-"/    |srcIdx|
-"/
-"/    srcIdx := sourceIndex.
-"/    start to:stop do:[:dstIdx |
-"/        self at:dstIdx put:(sourceBytes at:srcIdx).
-"/        srcIdx := srcIdx + 1
-"/    ].
+    srcIdx := sourceIndex.
+    start to:stop do:[:dstIdx |
+        self at:dstIdx put:(sourceBytes at:srcIdx).
+        srcIdx := srcIdx + 1
+    ].
 ! !
 
 !UninterpretedBytes methodsFor:'misc'!
@@ -2134,5 +2132,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.45 2003-04-22 09:37:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.46 2003-05-06 12:17:01 cg Exp $'
 ! !