diff --git a/R/create_eventlogs.R b/R/create_eventlogs.R
index 4e51380..80f3d5c 100644
--- a/R/create_eventlogs.R
+++ b/R/create_eventlogs.R
@@ -89,6 +89,10 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
     dat4$timeMs.start[which(dat4$fIdDiff > 0)] +
     dat4$timeMs.stop[which(dat4$fIdDiff > 0)]
 
+  dat4$fIdNum.start <- NULL
+  dat4$fIdNum.start <- NULL
+  dat4$fIdDiff      <- NULL
+
   # Remove fragmented traces ###############################################
   tab <- stats::xtabs( ~ trace + event, dat4)
 
@@ -119,7 +123,6 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
     dat6b       <- dat6[!dat6$glossar == 1, ]
     dat7        <- rbind(dat5[!dat5$trace %in% rownames(event_dat)[frag_ids], ],
                          dat6b)
-    # TODO: Check me!
   } else {
     dat7 <- dat5
     dat7$glossar <- NULL