diff --git a/wilson-basic/app.R b/wilson-basic/app.R
index a944d52..ba37a02 100755
--- a/wilson-basic/app.R
+++ b/wilson-basic/app.R
@@ -24,8 +24,10 @@ wilson_sidepanelwidth <- Sys.getenv("WILSON_SIDEPANELWIDTH", unset = 2)
 wilson_mainpanelwidth <- Sys.getenv("WILSON_MAINPANELWIDTH", unset = 10)
 
 # Which page should the user land on - default is the Introdcution page
-wilson_landing_page <- match.arg(arg = Sys.getenv("WILSON_LANDING_PAGE", unset = "introduction"),
-                                 choices = c("introduction", "feature_selection"))
+wilson_landing_page <- Sys.getenv("WILSON_LANDING_PAGE", unset = "introduction")
+if(!wilson_landing_page %in% c("introduction", "feature_selection")) {
+  wilson_landing_page <- "introduction"
+}
 
 #
 # Server options