<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <p><font face="Georgia">I've been able to boil it down to one
        method. This fails sometimes and succeeds sometimes. Whichever
        it does, it tends to keep doing that for a while. Quitting and
        restarting may get it to change.<br>
      </font></p>
    <p><font face="Georgia">test4<br>
        "<br>
        self test4<br>
        "<br>
            | species bufferSize buffer totalRead outputStream answer
        inputStream ba byte1 |<br>
            <br>
            false ifTrue: [ <br>
                ba := (FileStream readOnlyFileNamed:
        '/Users/bob/z99.zip') binary; contentsOfEntireFile.<br>
             ] ifFalse: [ <br>
                ba := ByteArray new: 18202085.<br>
                ba atAllPut: 99.<br>
                1 to: 20 do: [  :i | ba at: i put: (#[80 75 3 4 10 7 7 7
        7 7 125 83 67 73 7 7 7 7 7 7] at: i) ].<br>
             ].<br>
            inputStream := ba readStream.<br>
            bufferSize := 16384.<br>
            species := ByteArray.<br>
            buffer := species new: bufferSize.<br>
            totalRead := 0.<br>
            outputStream := nil. <br>
            [ inputStream atEnd ] whileFalse: [ | readCount |<br>
                readCount := inputStream readInto: buffer startingAt: 1
        count: bufferSize.<br>
                totalRead = 0 ifTrue: [<br>
                    byte1 := buffer first.<br>
                ].<br>
                totalRead := totalRead + readCount.<br>
                <br>
                outputStream ifNil: [ <br>
                    inputStream atEnd<br>
                        ifTrue: [ ^ buffer copyFrom: 1 to: readCount ] <br>
                        ifFalse: [ outputStream := (species new:
        bufferSize) writeStream ] ].<br>
                outputStream next: readCount putAll: buffer startingAt:
        1.<br>
                byte1 = outputStream firstByte ifFalse: [ self halt ].<br>
            ].<br>
            answer := outputStream ifNil: [ species new ] ifNotNil: [
        outputStream contents ].<br>
            byte1 = answer first ifFalse: [ self halt ].<br>
            ^answer</font><br>
    </p>
    <br>
    <div class="moz-cite-prefix">On 1/10/18 4:42 AM, Cyrille Delaunay
      wrote:<br>
    </div>
    <blockquote type="cite"
cite="mid:CAMEdb_D9freOHuP8VR1gdOAS8vjZW7T28o+1BVN9urqg_OacYQ@mail.gmail.com">
      <div><br>
      </div>
      <div>Has anyone been able to reproduce my little scenario ?</div>
      <div>As a reminder, suspicion is that something "wrong" has been
        introduced with Pharo6</div>
    </blockquote>
    <br>
  </body>
</html>