*** IO.hs	11 Apr 2003 10:11:24 -0000	1.12
--- IO.hs	29 Apr 2003 16:33:51 -0000
***************
*** 98,104 ****
  	new_buf <- fillReadBuffer fd True (haIsStream handle_) buf
  	hGetcBuffered fd ref new_buf
      BlockBuffering _ -> do
! 	new_buf <- fillReadBuffer fd False (haIsStream handle_) buf
  	hGetcBuffered fd ref new_buf
      NoBuffering -> do
  	-- make use of the minimal buffer we already have
--- 98,104 ----
  	new_buf <- fillReadBuffer fd True (haIsStream handle_) buf
  	hGetcBuffered fd ref new_buf
      BlockBuffering _ -> do
! 	new_buf <- fillReadBuffer fd True (haIsStream handle_) buf
  	hGetcBuffered fd ref new_buf
      NoBuffering -> do
  	-- make use of the minimal buffer we already have