diff --git a/src/noise/nz_perlin1s.scad b/src/noise/nz_perlin1s.scad
index 5802447d..f463e4d1 100644
--- a/src/noise/nz_perlin1s.scad
+++ b/src/noise/nz_perlin1s.scad
@@ -12,5 +12,5 @@ use <../util/rand.scad>;
 use <_impl/_pnoise1_impl.scad>;
 
 function nz_perlin1s(xs, seed) = 
-    let(sd = is_undef(seed) ? rand() : seed)
+    let(sd = is_undef(seed) ? rand() * 1000: seed)
     [for(x = xs) _pnoise1_impl(x, sd)];
\ No newline at end of file
diff --git a/src/noise/nz_perlin2s.scad b/src/noise/nz_perlin2s.scad
index ce78758c..a6fc5c4b 100644
--- a/src/noise/nz_perlin2s.scad
+++ b/src/noise/nz_perlin2s.scad
@@ -12,5 +12,5 @@ use <../util/rand.scad>;
 use <_impl/_pnoise2_impl.scad>;
 
 function nz_perlin2s(points, seed) = 
-    let(sd = is_undef(seed) ? rand() : seed)
+    let(sd = is_undef(seed) ? rand() * 1000 : seed)
     [for(p = points) _pnoise2(p.x, p.y, sd)];    
\ No newline at end of file
diff --git a/src/noise/nz_perlin3s.scad b/src/noise/nz_perlin3s.scad
index e08961c3..8f9f894b 100644
--- a/src/noise/nz_perlin3s.scad
+++ b/src/noise/nz_perlin3s.scad
@@ -12,5 +12,5 @@ use <../util/rand.scad>;
 use <_impl/_pnoise3_impl.scad>;
 
 function nz_perlin3s(points, seed) = 
-    let(sd = is_undef(seed) ? rand() : seed)
+    let(sd = is_undef(seed) ? rand() * 1000 : seed)
     [for(p = points) _pnoise3(p.x, p.y, p.z, sd)];    
\ No newline at end of file
diff --git a/src/noise/nz_worley2.scad b/src/noise/nz_worley2.scad
index 8d1d5437..0c359fc4 100644
--- a/src/noise/nz_worley2.scad
+++ b/src/noise/nz_worley2.scad
@@ -12,5 +12,4 @@ use <../util/rand.scad>;
 use <_impl/_nz_worley2_impl.scad>;
 
 function nz_worley2(x, y, seed, grid_w = 10, dist = "euclidean") =
-    let(sd = is_undef(seed) ? rand() : seed)
-    _nz_worley2([x, y], sd, grid_w, dist); 
\ No newline at end of file
+    _nz_worley2([x, y], seed, grid_w, dist); 
\ No newline at end of file
diff --git a/src/noise/nz_worley2s.scad b/src/noise/nz_worley2s.scad
index 9f463438..fdf5f035 100644
--- a/src/noise/nz_worley2s.scad
+++ b/src/noise/nz_worley2s.scad
@@ -12,5 +12,5 @@ use <../util/rand.scad>;
 use <_impl/_nz_worley2_impl.scad>;
 
 function nz_worley2s(points, seed, grid_w = 10, dist = "euclidean") =
-    let(sd = is_undef(seed) ? rand() : seed)
+    let(sd = is_undef(seed) ? rand() * 1000 : seed)
     _nz_worley2s(points, sd, grid_w, dist);
\ No newline at end of file
diff --git a/src/noise/nz_worley3.scad b/src/noise/nz_worley3.scad
index 56b3b925..61519ea4 100644
--- a/src/noise/nz_worley3.scad
+++ b/src/noise/nz_worley3.scad
@@ -12,5 +12,4 @@ use <../util/rand.scad>;
 use <_impl/_nz_worley3_impl.scad>;
 
 function nz_worley3(x, y, z, seed, grid_w = 10, dist = "euclidean") =
-    let(sd = is_undef(seed) ? rand() : seed)
-    _nz_worley3([x, y, z], sd, grid_w, dist);
\ No newline at end of file
+    _nz_worley3([x, y, z], seed, grid_w, dist);
\ No newline at end of file
diff --git a/src/noise/nz_worley3s.scad b/src/noise/nz_worley3s.scad
index adf6e6c1..576e2fe6 100644
--- a/src/noise/nz_worley3s.scad
+++ b/src/noise/nz_worley3s.scad
@@ -12,5 +12,5 @@ use <../util/rand.scad>;
 use <_impl/_nz_worley3_impl.scad>;
 
 function nz_worley3s(points, seed, grid_w = 10, dist = "euclidean") =
-    let(sd = is_undef(seed) ? rand() : seed)
+    let(sd = is_undef(seed) ? rand() * 1000: seed)
     _nz_worley3s(points, sd, grid_w, dist);
\ No newline at end of file