diff --git a/DESCRIPTION b/DESCRIPTION
index 70eba020..eb19b081 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: psichomics
 Title: Graphical Interface for Alternative Splicing Quantification, Analysis and
     Visualisation
-Version: 1.22.1
+Version: 1.24.0
 Encoding: UTF-8
 Authors@R: c(
         person("Nuno", "Saraiva-Agostinho",
diff --git a/NEWS.md b/NEWS.md
index 42f756dc..a36e84c3 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,7 @@
+# psichomics 1.24.0 (26 Oct, 2022)
+
+* Bug fix: psichomics app now opens as expected instead of crashing
+
 # psichomics 1.22.1 (14 July, 2022)
 
 * Bug fix: GTEx data v8 can now be downloaded using newer versions of R
diff --git a/R/app.R b/R/app.R
index bb498c66..69db6c4e 100644
--- a/R/app.R
+++ b/R/app.R
@@ -233,7 +233,7 @@ modTabPanel <- function(title, ..., icon=NULL, menu=FALSE) {
 replaceStrInList <- function(tag, old, new) {
     FUN <- function(x) {
         res <- x
-        if (grepl(old, x)) res <- gsub(old, new, x, fixed=TRUE)
+        if (any(grepl(old, x))) res <- gsub(old, new, x, fixed=TRUE)
         return(res)
     }
     rapply(tag, FUN, how="replace", classes="character")
diff --git a/R/utils_fileBrowserDialog.R b/R/utils_fileBrowserDialog.R
index e3f2fe9a..4a67106b 100644
--- a/R/utils_fileBrowserDialog.R
+++ b/R/utils_fileBrowserDialog.R
@@ -252,9 +252,11 @@ fileBrowserInput <- function(id, label, value=NULL, placeholder=NULL,
 
     check <- function (x, y) {
         # Based on shiny:::`%AND%`
-        if (!is.null(x) && !is.na(x))
-            if (!is.null(y) && !is.na(y))
+        if (!is.null(x) && !is.na(x)) {
+            if (!is.null(y) && !is.na(y$children[[1]])) {
                 return(y)
+            }
+        }
         return(NULL)
     }