diff --git a/GHC/RTS/Events.hs b/GHC/RTS/Events.hs
--- a/GHC/RTS/Events.hs
+++ b/GHC/RTS/Events.hs
@@ -357,6 +357,9 @@
 data CapEvent 
   = CapEvent { ce_cap   :: Maybe Int,
                ce_event :: Event
+               -- we could UNPACK ce_event, but the Event constructor
+               -- might be shared, in which case we could end up
+               -- increasing the space usage.
              }
 
 sortEvents :: [Event] -> [CapEvent]
diff --git a/ghc-events.cabal b/ghc-events.cabal
--- a/ghc-events.cabal
+++ b/ghc-events.cabal
@@ -1,5 +1,5 @@
 name:             ghc-events
-version:          0.2
+version:          0.2.0.1
 synopsis:         Library and tool for parsing .eventlog files from GHC
 description:      Parses .eventlog files emitted by GHC 6.12.1 and later.
                   Includes the show-ghc-events tool to dump an event
@@ -22,6 +22,7 @@
                     binary     == 0.5.*,
                     bytestring == 0.9.*
   exposed-modules:  GHC.RTS.Events
+  extensions:	    CPP
 }
 
 executable show-ghc-events {