diff --git a/scripts/textometry/compute-profile.hs b/scripts/textometry/compute-profile.hs
index 04aa4e2c818a4e5bd577f5d7a34f6c1c0ebe938d..32f4527815ef528c57aba6db2c760b3fd153d939 100755
--- a/scripts/textometry/compute-profile.hs
+++ b/scripts/textometry/compute-profile.hs
@@ -46,7 +46,8 @@ getConfig = execParser
     <> progDesc "A textometric tool to draw discursive profiles"))
 
 data Occurrence = Occurrence
-  { position :: Int
+  { event :: String
+  , position :: Int
   , size :: Int
   , totalSize :: Int } deriving Generic