--- a/UninterpretedBytes.st	Sat Feb 13 11:13:15 2016 +0100
+++ b/UninterpretedBytes.st	Sat Feb 13 12:04:28 2016 +0100
@@ -2664,7 +2664,7 @@
 !
 
 stringAt:index put:aString
-    "copy aString to the externalBytes, starting at index up to
+    "copy aString to the receiver, starting at index up to
      (and including) the 0-byte (which is always written).
      The index is a smalltalk index (i.e. 1-based)."
 
@@ -2672,8 +2672,8 @@
 
     i := index.
     aString do:[:aChar |
-	self byteAt:i put:aChar codePoint.
-	i := i + 1.
+        self byteAt:i put:aChar codePoint.
+        i := i + 1.
     ].
     self byteAt:i put:0.
     ^ aString
@@ -2684,7 +2684,7 @@
      bytes := ExternalBytes new:10.
      bytes stringAt:1 put:'hello'.
      1 to:bytes size do:[:i |
-	Transcript showCR:(bytes at:i)
+        Transcript showCR:(bytes at:i)
      ].
     "
 
@@ -2696,7 +2696,7 @@
 !
 
 stringAt:index put:aString size:maxSize
-    "copy aString to the externalBytes, starting at index up to either maxSize characters,
+    "copy aString to the receiver, starting at index up to either maxSize characters,
      or (and including) the 0-byte, whichever is encountered first.
      The final 0-byte is only written, if the string is shorter than maxSize.
      The index is a smalltalk index (i.e. 1-based)."
@@ -2709,10 +2709,10 @@
 
     i := index.
     aString do:[:aChar |
-	self byteAt:i put:aChar codePoint.
-	i := i + 1.
-	remaining := remaining - 1.
-	remaining <= 0 ifTrue:[^ aString].
+        self byteAt:i put:aChar codePoint.
+        i := i + 1.
+        remaining := remaining - 1.
+        remaining <= 0 ifTrue:[^ aString].
     ].
     self byteAt:i put:0.
     ^ aString
@@ -2723,7 +2723,7 @@
      bytes := ExternalBytes new:10.
      bytes stringAt:1 put:'hello' size:3.
      1 to:bytes size do:[:i |
-	Transcript showCR:(bytes at:i)
+        Transcript showCR:(bytes at:i)
      ]
     "
     "
@@ -2732,7 +2732,7 @@
      bytes := ByteArray new:10 withAll:16rFF.
      bytes stringAt:1 put:'he' size:3.
      1 to:bytes size do:[:i |
-	Transcript showCR:(bytes at:i)
+        Transcript showCR:(bytes at:i)
      ]
     "