diff --git a/R/CreateInputsCrit.R b/R/CreateInputsCrit.R
index d45f4a1cb08ef23143e9ffe2ba11b46a5c4a417a..2c59f6251670f296d383b0311ed927b0e708bea2 100644
--- a/R/CreateInputsCrit.R
+++ b/R/CreateInputsCrit.R
@@ -134,6 +134,12 @@ CreateInputsCrit <- function(FUN_CRIT,
       return(NULL)
     }
     
+    ## check 'obs'
+    if (!is.vector(iListArgs2$obs) | length(iListArgs2$obs) != LLL | !is.numeric(iListArgs2$obs)) {
+      stop(sprintf("'obs' must be a (list of) vector(s) of numeric values of length %i \n", LLL), call. = FALSE)
+      return(NULL)
+    }
+    
     ## check 'BoolCrit'
     if (is.null(iListArgs2$BoolCrit)) {
       iListArgs2$BoolCrit <- rep(TRUE, length(iListArgs2$obs))
@@ -147,12 +153,6 @@ CreateInputsCrit <- function(FUN_CRIT,
       return(NULL)
     }
     
-    ## check 'obs'
-    if (!is.vector(iListArgs2$obs) | length(iListArgs2$obs) != LLL | !is.numeric(iListArgs2$obs)) {
-      stop("'obs' must be a (list of) vector(s) of numeric values \n", call. = FALSE)
-      return(NULL)
-    }
-    
     ## check 'varObs'
     if (!is.vector(iListArgs2$varObs) | length(iListArgs2$varObs) != 1 | !is.character(iListArgs2$varObs) | !all(iListArgs2$varObs %in% inVarObs)) {
       stop(msgVarObs, call. = FALSE)