diff --git a/ebv_metadata_app.R b/ebv_metadata_app.R
index 98d26a402bdfa3838752fa16ed0206e4643a2b7a..9a8fe3275bdb5c15a6b0463753fe59e248985257 100644
--- a/ebv_metadata_app.R
+++ b/ebv_metadata_app.R
@@ -707,10 +707,14 @@ server <- function(input, output) {
                 to_do_list <- c(to_do_list, 'You need to provide a description of the other environmental domain.')
                 create <- FALSE
               }
+              #create ebv_domain value
+              ebv_domain_value <- c(input$ebv_domain[! input$ebv_domain %in% c('Other')], input$ebv_domain_other_txt)
+
+            }else{
+              #create ebv_domain value
+              ebv_domain_value <- c(input$ebv_domain)
+              }
             }
-            #create ebv_domain value
-            ebv_domain_value <- c(input$ebv_domain[! input$ebv_domain %in% c('Other')], input$ebv_domain_other_txt)
-          }
 
           #check biological_entity
           if(!is.null(need(input$biological_entity != '', TRUE))){