diff --git a/R/CreateCalibOptions.R b/R/CreateCalibOptions.R
index 10be5da0b4932be507200c2ee43743d5c3812f60..9102561e3700abb14637a8546f1a4db45b3bb8b8 100644
--- a/R/CreateCalibOptions.R
+++ b/R/CreateCalibOptions.R
@@ -24,6 +24,9 @@ CreateCalibOptions <- function(FUN_MOD,
   }
 
   ## check FUN_MOD
+  if (!isTRUE(IsSD)) {
+    FUN_SD <- NULL
+  }
   FeatFUN_MOD <- .GetFeatModel(FUN_MOD = FUN_MOD, FUN_SD = FUN_SD)
   FeatFUN_MOD$IsHyst <- IsHyst
   FeatFUN_MOD$IsSD <- IsSD