diff --git a/R/s3-atomic.R b/R/s3-atomic.R
index 00adab32..2a908788 100644
--- a/R/s3-atomic.R
+++ b/R/s3-atomic.R
@@ -52,7 +52,7 @@ opts_atomic <- function(
     fill <- rlang::arg_match(fill),
     abort_not_boolean(compress)
   )
-  if (any(c("unicode_representation", "escape") %in% ...names())) {
+  if (any(c("unicode_representation", "escape") %in% names(list(...)))) {
     msg <- "`unicode_representation` and `escape` are deprecated in `opts_atomic()`"
     info1 <-  "Set those in `opts_character()` instead for the same effect"
     info2 <- "Set those directly in the main function (e.g. `construct()`) to apply them on both character vectors, symbols and argument names"
diff --git a/inst/new_class_template_commented.R b/inst/new_class_template_commented.R
index 7e4fab2f..94305f3a 100644
--- a/inst/new_class_template_commented.R
+++ b/inst/new_class_template_commented.R
@@ -29,7 +29,7 @@ opts_.CLASS1. <- function(constructor = c(".CONSTRUCTOR.", "next"), ...) {
   if (is_corrupted_.CLASS1.(x) || opts$constructor == "next") return(NextMethod())
   # This odd looking code dispatches to a method based on the name of
   # the constructor rather than the class
-  UseMethod(".cstr_construct..CLASS1.", structure(NA, .CLASS1. = opts$constructor))
+  UseMethod(".cstr_construct..CLASS1.", structure(NA, class = opts$constructor))
 }
 
 is_corrupted_.CLASS1. <- function(x) {