diff --git a/RBBGCMuso/R/musoExamples.R b/RBBGCMuso/R/musoExamples.R
index 5b044cc..4c03f0c 100644
--- a/RBBGCMuso/R/musoExamples.R
+++ b/RBBGCMuso/R/musoExamples.R
@@ -17,7 +17,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
             tcltk::tclRequire("BWidget")
             tcltk::tktitle(choiceWin) <- "Choose an example!"
             tcltk::tcl("wm","geometry",choiceWin,"200x50")
-            tcl("wm", "attributes", base, topmost=TRUE)
+            tcl("wm", "attributes", choiceWin, topmost=TRUE)
             choiceValues <-  basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE))
             choices <- tcltk::tkwidget(choiceWin,"ComboBox",
                                        editable = FALSE, values = choiceValues,