diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,4 +1,8 @@
-# Revision history for ghc-events
+# Revision history for ghc-prof
+
+## 1.4.0.1 (2017-04-02)
+
+* Implement a workaround for a bug in the GHC profiler ([#6](https://github.com/maoe/ghc-prof/issues/6))
 
 ## 1.4.0 (2017-02-14)
 
diff --git a/ghc-prof.cabal b/ghc-prof.cabal
--- a/ghc-prof.cabal
+++ b/ghc-prof.cabal
@@ -1,5 +1,5 @@
 name: ghc-prof
-version: 1.4.0
+version: 1.4.0.1
 synopsis: Library for parsing GHC time and allocation profiling reports
 description: Library for parsing GHC time and allocation profiling reports
 homepage: https://github.com/maoe/ghc-prof
diff --git a/src/GHC/Prof/Parser.hs b/src/GHC/Prof/Parser.hs
--- a/src/GHC/Prof/Parser.hs
+++ b/src/GHC/Prof/Parser.hs
@@ -19,7 +19,7 @@
   ) where
 import Control.Applicative
 import Control.Monad
-import Data.Char (isSpace)
+import Data.Char (isDigit, isSpace)
 import Data.Foldable (asum, foldl')
 import Data.Maybe
 import Data.Time
@@ -28,6 +28,7 @@
 import Data.Attoparsec.Text as A
 import qualified Data.Set as Set
 import qualified Data.Text as T
+import qualified Data.Text.Read as TR
 
 import Control.Monad.Extras (seqM)
 import GHC.Prof.Types
@@ -177,22 +178,10 @@
   costCentreTree params
 
 costCentre :: HeaderParams -> Parser CostCentre
-costCentre HeaderParams {..} = do
+costCentre params = do
   name <- symbol; skipHorizontalSpace
-  modName <- symbol; skipHorizontalSpace
-  src <- if headerHasSrc
-    then do
-      !sym <- sourceSpan
-      return $ Just sym
-    else pure Nothing
-  skipHorizontalSpace
-  no <- decimal; skipHorizontalSpace
-  entries <- decimal; skipHorizontalSpace
-  indTime <- scientific; skipHorizontalSpace
-  indAlloc <- scientific; skipHorizontalSpace
-  inhTime <- scientific; skipHorizontalSpace
-  inhAlloc <- scientific; skipHorizontalSpace
-  optInfo <- optional optionalInfo
+  (modName, src, no, (entries, indTime, indAlloc, inhTime, inhAlloc, optInfo))
+    <- validCostCentre params <|> jammedCostCentre
   return $! CostCentre
     { costCentreName = name
     , costCentreModule = modName
@@ -207,11 +196,40 @@
     , costCentreBytes = snd <$> optInfo
     }
   where
-    optionalInfo = do
-      !ticks <- decimal
+    validCostCentre HeaderParams {..} = do
+      modName <- symbol; skipHorizontalSpace
+      src <- if headerHasSrc
+        then do
+          !sym <- sourceSpan
+          return $ Just sym
+        else pure Nothing
       skipHorizontalSpace
-      !bytes <- decimal
-      return (ticks, bytes)
+      no <- decimal; skipHorizontalSpace
+      vals <- metrics
+      return (modName, src, no, vals)
+    -- Workaround for https://ghc.haskell.org/trac/ghc/ticket/8811.
+    -- This bug had been fixed before the SRC column was implemented so
+    -- @sourceSpan@ isn't parsed here.
+    -- Caveat: This parser can be confused if module name contains digits and
+    -- the digits are jammed with the cost centre number. In such cases, all
+    -- the digits are parsed as a number of entries.
+    jammedCostCentre = do
+      jammed <- symbol; skipHorizontalSpace
+      let modName = T.dropWhileEnd isDigit jammed
+      no <- either fail (return . fst) $ TR.decimal $ T.takeWhileEnd isDigit jammed
+      vals <- metrics
+      return (modName, Nothing, no, vals)
+    metrics = do
+      entries <- decimal; skipHorizontalSpace
+      indTime <- scientific; skipHorizontalSpace
+      indAlloc <- scientific; skipHorizontalSpace
+      inhTime <- scientific; skipHorizontalSpace
+      inhAlloc <- scientific; skipHorizontalSpace
+      optInfo <- optional $ do
+        !ticks <- decimal; skipHorizontalSpace
+        !bytes <- decimal
+        return (ticks, bytes)
+      return (entries, indTime, indAlloc, inhTime, inhAlloc, optInfo)
 
 costCentreTree :: HeaderParams -> Parser CostCentreTree
 costCentreTree params = buildTree <$> costCentreList