Biographical profiling segfaults

When I try to make a biographical profile of my program I get a segmentation fault:

$ ghc --make <prog>.hs -prof -auto-all
$ ./<prog> +RTS -hb
Segmentation fault

Note that I don't get a segmentation fault when I run the program without -hb or generate other memory usage profiles.

Also note that the program itself probably doesn't matter: I tried two different programs and got a segmentation fault each time. For what it's worth, here are they:

module Main where

import System.Environment (getArgs)

main :: IO ()
main = print . sum . enumFromTo (0::Int) . read . head =<< getArgs

module Main where

import Prelude hiding (foldl)
import System.Environment (getArgs)

foldl :: (b -> a -> b) -> b -> [a] -> b
foldl f z []     = z
foldl f z (x:xs) = let z' = f z x
                   in foldl f z' xs

sum2 :: [Int] -> Int
sum2 = foldl (+) 0

main :: IO()
main =   print
       . sum2
       . enumFromTo 1
       . read
       . head =<< getArgs

Info:

$ ghc --version
The Glorious Glasgow Haskell Compilation System, version 6.10.1

$ uname -a
Linux bassbox 2.6.27-gentoo-r8 #4 PREEMPT Mon Mar 23 10:33:24 CET 2009 i686 AMD Athlon(tm) 64 Processor 3200+ AuthenticAMD GNU/Linux

Trac metadata

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