diff --git a/demo/mosaicplot.R b/demo/mosaicplot.R
index c8bf16b..d8ea3b7 100644
--- a/demo/mosaicplot.R
+++ b/demo/mosaicplot.R
@@ -20,7 +20,7 @@
     { . ->> queryResult } %>%
     { xtabs(totalResults ~ condition + alternative, .)} %>%
     vcd::mosaic(shade = TRUE) # , labeling = labeling_border(rot_labels = c(45,0,0,0), just_labels = c("left", "center", "center", "right")))
-  df
+  queryResult
 }
 queryResult <- mosaicplot(c("[marmot/m=mood:subj]", "[marmot/m=mood:ind]"), c("textDomain=Wirtschaft", "textDomain=Kultur", "textDomain=Sport"))
 #mosaicplot(c("Asylbewerber", "Asylwerber"), c("pubPlaceKey=DE", "pubPlaceKey=AT"))