diff --git a/R/common.R b/R/common.R
index 15ac425..f315150 100644
--- a/R/common.R
+++ b/R/common.R
@@ -91,6 +91,8 @@
 show_table <- function(df) {
   df %>%
     mutate(Collocate=sprintf('<a href="%s">%s</a>', webUIRequestUrl, collocate)) %>%
+    mutate(example=str_replace(example, ".*(\\W+\\w+\\W+\\w+\\W+<mark.*/mark>.*)", "\\1")) %>%
+    mutate(example=str_replace(example, "(.*<mark.*/mark>\\W+\\w+\\W+\\w+).*", "\\1")) %>%
     rowwise() %>%
     mutate(Example=highliteSubstrings(example, wordsFromQuery(query))) %>%
     select(Collocate, Example, logDice, pmi, ll) %>%