diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 7a83140..a10faf8 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -233,7 +233,7 @@
   if (length(snippet) < 1) {
     dplyr::tibble(word=c(), frequency=c())
   } else if (length(snippet) > 1) {
-    log.info(verbose, paste("Joinging", length(snippet), "kwics\n"))
+    log.info(verbose, paste("Joining", length(snippet), "kwics\n"))
     for (s in snippet) {
       oldTable <- snippet2FreqTable(
         s,