Too many workers; runaway worker creation?

See the attached code. Use "make" to compile and you should get an executable file called "Bug.bin", then you can run it by typing the command "./Bug.bin N" where N is the number of concurrent threads.

For N<=32. The program works fine. It will simply loop and you need another terminal to kill it.

For N>32, it always crashes immediately:

$ ./Bug.bin 33
Bug.bin: internal error: too many workers; runaway worker creation?
    (GHC version 6.5.20060620 for i386_unknown_linux)
    Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug
Aborted

Trac metadata

Trac field	Value
Version	6.5
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Runtime System
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture