In function read-pcdata:

(t
      (setf (aref scratch sp) ch)    ;recode character read
      (setf sp (the fixnum (+ sp 1)))
      (cond ((= sp se)                         ;end of scratch pad reached?
           (enlarge-scratch-pad input)
           (setf scratch (a-stream-scratch input)
                   se (length scratch))))))))



Should first enlarge the input buffer, or will cause out of index error.

(t
      (cond ((= sp se)                         ;end of scratch pad reached?
      (enlarge-scratch-pad input)
      (setf scratch (a-stream-scratch input)
               se (length scratch))))

      (setf (aref scratch sp) ch)    ;recode character read
      (setf sp (the fixnum (+ sp 1)))))))