diff --git a/src/epics/util/lib/Noise.pm b/src/epics/util/lib/Noise.pm
index e137a662c97121bb23be8324a8b5db70afcbfafc..40341a35d0aae846999d0b66e4d932b13196ae19 100644
--- a/src/epics/util/lib/Noise.pm
+++ b/src/epics/util/lib/Noise.pm
@@ -44,7 +44,7 @@ sub printFrontEndVars  {
         print ::OUT "static unsigned long noise_seed = " . $::noiseGeneratorSeed . "LL;\n";
     }
     else {
-         print ::OUT "static unsigned long noise_seed = 4101842887655102017LL;\n";
+         print ::OUT "static unsigned long noise_seed = 0LL;\n";
     }
 
     print ::OUT << "END";
@@ -92,8 +92,8 @@ sub frontEndInitCode {
     my ($i) = @_;
     if ($init_code_printed) { return ""; }
     my $calcExp  =  "\L$::xpartName[$i] = 0;\n";
-    $calcExp    .=  "for (;noise_seed == 4101842887655102017LL;) {\n";
-    $calcExp    .=  "   rdtscl(noise_seed);\n";
+    $calcExp    .=  "if (noise_seed == 0) {\n";
+    $calcExp    .=  "    rdtscll(noise_seed);\n";
     $calcExp    .=  "}\n";
     $calcExp    .=  "noise_set_seed(noise_seed);\n";