--- a/ByteArray.st	Sun Aug 16 18:14:23 2009 +0100
+++ b/ByteArray.st	Wed Aug 19 17:14:36 2009 +0100
@@ -1685,16 +1685,16 @@
      therefore the change may affect all others referencing the receiver."
 
     ((aCollection class == self class)
-    or:[aCollection class isBytes]) ifTrue:[
-	^ self replaceBytesFrom:startIndex to:stopIndex with:aCollection startingAt:repStartIndex
+     or:[aCollection isByteCollection]) ifTrue:[
+        ^ self replaceBytesFrom:startIndex to:stopIndex with:aCollection startingAt:repStartIndex
     ].
     ^ super replaceFrom:startIndex to:stopIndex with:aCollection startingAt:repStartIndex
 
     "
      args:    startIndex            : <integer>
-	      stopIndex             : <integer>
-	      replacementCollection : <collection of <bytes> >
-	      repStartIndex         : <integer>
+              stopIndex             : <integer>
+              replacementCollection : <collection of <bytes> >
+              repStartIndex         : <integer>
 
      returns: self
     "
@@ -2831,6 +2831,7 @@
 
     "
       #[1 2 3 4 10 17] hexPrintStringWithSeparator:$:
+      #[1 2 3 4 10 17] hexPrintStringWithSeparator:Character space
     "
 !
 
@@ -3210,5 +3211,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ByteArray.st 10447 2009-06-14 13:09:55Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10467 2009-08-19 16:14:36Z vranyj1 $'
 ! !