diff --git a/extra/random/cmwc/cmwc-tests.factor b/extra/random/cmwc/cmwc-tests.factor
index 2a908c0bd3..6e3f4ac178 100644
--- a/extra/random/cmwc/cmwc-tests.factor
+++ b/extra/random/cmwc/cmwc-tests.factor
@@ -24,7 +24,7 @@ IN: random.cmwc.tests
 }
 ] [
     cmwc-4096
-    4096 iota >array seed-random [
+    4096 iota >array 362436 <cmwc-seed> seed-random [
         10 [ random-32 ] replicate
     ] with-random
 ] unit-test
@@ -35,7 +35,7 @@ IN: random.cmwc.tests
             10 [ random-32 ] replicate
         ] with-random
     ] [
-        4096 iota >array 362436 <cmwc-seed seed-random [
+        4096 iota >array 362436 <cmwc-seed> seed-random [
             10 [ random-32 ] replicate
         ] with-random
     ] bi =
diff --git a/extra/random/cmwc/cmwc.factor b/extra/random/cmwc/cmwc.factor
index 104046821f..00258257be 100644
--- a/extra/random/cmwc/cmwc.factor
+++ b/extra/random/cmwc/cmwc.factor
@@ -48,4 +48,7 @@ M:: cmwc random-32* ( cmwc -- n )
 : cmwc-4096 ( -- cmwc )
     4096
     [ 18782 4294967295 362436 <cmwc> ]
-    [ '[ [ random-32 ] replicate ] with-system-random seed-random ] bi ;
+    [
+        '[ [ random-32 ] replicate ] with-system-random
+        362436 <cmwc-seed> seed-random
+    ] bi ;