diff --git a/R/shiny-ui-top.R b/R/shiny-ui-top.R
index ab27df8dddc539f3528f305da26601d775446ef9..ad51bfcc440f8341bf4ca24d90e603f81fbc7fc3 100644
--- a/R/shiny-ui-top.R
+++ b/R/shiny-ui-top.R
@@ -46,9 +46,9 @@ mk_ui <- function (fn_style) {
 mk_shinyscreen <- function(fn_style=system.file('www/custom.css',package = 'shinyscreen')) {
     server <- function(input,output,session) {
         ## Top-level server function.
-        rv <- shiny::reactiveValues(dummy=1) # Container for all
-                                             # reactive values.
-
+        rv <- shiny::reactiveValues(GUI=T)   # Container for all
+                                        # reactive values.
+        
         rf <- list()                         # Container for all
                                              # reactive functions.