small bug report for 5.02

[S.D.Mechveliani]

Dear  ghc-5.02-linux-i386-unknown,

Here is quite a simple bug report.

  main = putStr $ shows ((head xs)+(last xs)) "\n"
                                          where xs = [1..99000]
  ghc -c Main.hs
  ghc -o run Main.o
  ./run +RTS -M100k -RTS
  99001
  ./run +RTS -M300k -RTS
  Heap exhausted;
  Current maximum heap size is 299008 bytes;

Maybe, my earlier complex bug report will become unnecessary after 
this small one is fixed. 

-----------------
Serge Mechveliani
mechvel at botik.ru