GHCi crashes with unboxed values on 32-bit platforms

The following program causes GHCi to crash, on x86 Linux and x86 Windows.

{-# LANGUAGE MagicHash #-}
import System.Mem
import GHC.Base

main = do
  let list = concatMap buildThunk [0..10000]
  length list `seq` performGC
  print $ last list

buildThunk :: Int -> [Int]
buildThunk (I# k) = [f k]

f :: Int# -> Int
f x = I# x

Trac metadata

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