changeset 20481 | a6ec69de1708 |
parent 20188 | e237016b38a7 |
child 20489 | 413138df0173 |
--- a/ExternalBytes.st Thu Sep 29 11:40:45 2016 +0200 +++ b/ExternalBytes.st Fri Sep 30 16:47:25 2016 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1993 by Claus Gittinger All Rights Reserved @@ -866,10 +868,10 @@ |idx byte s| idx := 1. - s := WriteStream on:String new. + s := WriteStream on:''. [(byte := self at:idx) ~~ 0] whileTrue:[ - s nextPut:(Character value:byte). - idx := idx + 1. + s nextPut:(Character value:byte). + idx := idx + 1. ]. ^ s contents !