diff --git a/R/rng_utils.R b/R/rng_utils.R
index ca5e1e9..798b97d 100644
--- a/R/rng_utils.R
+++ b/R/rng_utils.R
@@ -101,9 +101,9 @@ as_lecyer_cmrg_seed <- function(seed) {
     oseed <- get_random_seed()
     
     ## Already a L'Ecuyer-CMRG seed?  Then use that as is.
-    if (!is.na(seed) && seed) {
-      if (is_lecyer_cmrg_seed(oseed)) return(oseed)
-    }
+    #if (!is.na(seed) && seed) {
+    #  if (is_lecyer_cmrg_seed(oseed)) return(oseed)
+    #}
     
     ## Otherwise, generate a random one.
     on.exit(set_random_seed(oseed), add = TRUE)
diff --git a/tests/rng.R b/tests/rng.R
index fc19be6..015e1a9 100644
--- a/tests/rng.R
+++ b/tests/rng.R
@@ -22,9 +22,9 @@ stopifnot(is_lecyer_cmrg_seed(seed))
 set_random_seed(seed = seed)
 stopifnot(identical(get_random_seed(), seed))
 
-seed2 <- as_lecyer_cmrg_seed(seed = TRUE)
-str(seed2)
-stopifnot(identical(seed2, seed))
+#seed2 <- as_lecyer_cmrg_seed(seed = TRUE)
+#str(seed2)
+#stopifnot(identical(seed2, seed))
 
 seed3 <- as_lecyer_cmrg_seed(seed = seed)
 str(seed3)