[cvs-nhc98] patch applied (hat): Rename module Foreign to ForeignCode, to avoid a clash with ghc-6.4' s