diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,7 @@
+0.9.1 release 2021-06-21
+
+* Improve detailed mode for cost centre profiling (#195)
+
 0.9 release 2021-03-17
 
 * Add support for -hi profiling
diff --git a/eventlog2html.cabal b/eventlog2html.cabal
--- a/eventlog2html.cabal
+++ b/eventlog2html.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.4
 Name:                eventlog2html
-Version:             0.9.0
+Version:             0.9.1
 Synopsis:            Visualise an eventlog
 Description:         eventlog2html is a library for visualising eventlogs.
                      At the moment, the intended use is to visualise eventlogs
diff --git a/src/Eventlog/Detailed.hs b/src/Eventlog/Detailed.hs
--- a/src/Eventlog/Detailed.hs
+++ b/src/Eventlog/Detailed.hs
@@ -89,7 +89,7 @@
       H.td ""
       H.td ""
 
-    renderEntry (Bucket k) (mitl, (n, BucketInfo _ _ tot std mg)) = do
+    renderEntry (Bucket k) (mitl, (n, BucketInfo shortDesc _ tot std mg)) = do
           let (a, b, r2) =
                 case mg of
                   Nothing -> ("", "", "")
@@ -99,7 +99,7 @@
           H.tr $ do
             H.td (renderSpark (getBandValues n (ts, bs)))
             H.td (toHtml n)
-            H.td (toHtml k)
+            H.td (toHtml shortDesc)
             renderInfoTableLocStatus mitl
             H.td (toHtml (render $ trunc (tot / 1e6)))
             H.td (toHtml (render $ trunc (std / 1e6)))
diff --git a/src/Eventlog/Events.hs b/src/Eventlog/Events.hs
--- a/src/Eventlog/Events.hs
+++ b/src/Eventlog/Events.hs
@@ -15,7 +15,7 @@
 import Eventlog.Types
 import Eventlog.Total
 import Eventlog.Args (Args(..))
-import Data.List
+import Data.List (foldl')
 import Data.Function
 import Data.Word
 import Data.Time