diff --git a/R/Stringendo.R b/R/Stringendo.R
index 887491b..04f2fa0 100644
--- a/R/Stringendo.R
+++ b/R/Stringendo.R
@@ -1610,14 +1610,15 @@ parFlags2 <- function(prefix = ".",
                       pasteflg = TRUE,
                       coll.char = ".",
                       coll.char.intra = "_") {
+  stopifnot(
+    is.character(prefix), length(prefix) == 1,
+    is.logical(pasteflg), length(pasteflg) == 1,
+    is.character(coll.char), length(coll.char) == 1,
+    is.character(coll.char.intra), length(coll.char.intra) == 1
+  )
   val <- c(...)
+  names(val) <- as.character(match.call(expand.dots = FALSE)[["..."]])
   
-  
-  
-  
-  
-  <- as.character(as.list(match.call())[-(1:2)])
-  names(val) <- namez
   flg <- if (pasteflg) {
     paste0(
       prefix,