tcrun007: Can't find interface-file declaration for variable ....

This seems to fail on HEAD. Compiled with stage2-devel build.

Full error:

cd . && '/Users/mbolingbroke/Programming/Checkouts/ghc.working/compiler/stage2/ghc-inplace' -fforce-recomp -dcore-lint -dcmm-lint -Di386_apple_darwin  -dno-debug-output -o tcrun007 tcrun007.hs -O -threaded   >tcrun007.comp.stderr 2>&1
Compile failed (status 256) errors were:

tcrun007.hs:40:0:
    Can't find interface-file declaration for variable Data.Tuple.$gfrom(,)
      Probable cause: bug in .hi-boot file, or inconsistent .hi file
      Use -ddump-if-trace to get an idea of which file caused the error
    In the first argument of `a', namely `(Data.Tuple.$gfrom(,) b)'
    In the first argument of `(\ a -> a)', namely
        `(a (Data.Tuple.$gfrom(,) b))'
    In the expression: (\ a -> a) (a (Data.Tuple.$gfrom(,) b))

tcrun007.hs:40:0:
    Can't find interface-file declaration for variable Data.Tuple.$gto(,)
      Probable cause: bug in .hi-boot file, or inconsistent .hi file
      Use -ddump-if-trace to get an idea of which file caused the error
    In the expression: Data.Tuple.$gto(,) g1
    In the expression: (Data.Tuple.$gto(,) g1, (\ a -> a) g2)
    In the expression:
        (\ (g1, g2) -> (Data.Tuple.$gto(,) g1, (\ a -> a) g2))
          (a ((\ a -> a) b))

tcrun007.hs:41:0:
    Can't find interface-file declaration for variable GHC.Base.$gfrom[]
      Probable cause: bug in .hi-boot file, or inconsistent .hi file
      Use -ddump-if-trace to get an idea of which file caused the error
    In the first argument of `a', namely `(GHC.Base.$gfrom[] b)'
    In the first argument of `(\ a -> a)', namely
        `(a (GHC.Base.$gfrom[] b))'
    In the expression: (\ a -> a) (a (GHC.Base.$gfrom[] b))

tcrun007.hs:41:0:
    Can't find interface-file declaration for variable GHC.Base.$gto[]
      Probable cause: bug in .hi-boot file, or inconsistent .hi file
      Use -ddump-if-trace to get an idea of which file caused the error
    In the expression: GHC.Base.$gto[] g1
    In the expression: (GHC.Base.$gto[] g1, (\ a -> a) g2)
    In the expression:
        (\ (g1, g2) -> (GHC.Base.$gto[] g1, (\ a -> a) g2))
          (a ((\ a -> a) b))

Trac metadata

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