Fix picking up vc definition from KorAP-URL in corpusQuery

Change-Id: I2e19b2f46ff5994c83b5359846d991c0f6b79974
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index 723ef3e..0b9ee7c 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -141,7 +141,7 @@
             }
             if (missing(query)) {
               query <- QueryParameterFromUrl(KorAPUrl, "q")
-              vc <- QueryParameterFromUrl(KorAPUrl, "vc")
+              vc <- QueryParameterFromUrl(KorAPUrl, "cq")
               ql <- QueryParameterFromUrl(KorAPUrl, "ql")
             }
             request <- paste0('?q=', URLencode(query, reserved=TRUE),