diff --git a/R/sent_merger.R b/R/sent_merger.R
index 4685c88..9dae3b9 100644
--- a/R/sent_merger.R
+++ b/R/sent_merger.R
@@ -103,7 +103,7 @@ sent_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
   if(!is.null(actor_groups)) {
     output <- lapply(actor_groups,grouper, df = df) %>%
       rbindlist(.) %>%
-      left_join(text_sent, by="id") %>%
+      left_join(text_sent, by=c("id","publication_date")) %>%
       mutate(
         actor.prom = actor.occ/text.sentences,
         actor.rel_first = 1-(actor.first/text.sentences),