This was leading to looping and excessive allocation, when the
computation should have just blocked on the black hole.  

Reported by Christian Höner zu Siederdissen <choener@tbi.univie.ac.at>
on glasgow-haskell-users.