diff --git a/misc.c b/misc.c
index e025c78..495a339 100644
--- a/misc.c
+++ b/misc.c
@@ -761,8 +761,7 @@ long TSTBIT;
 
 void set_seed(long seedval)
 {
-	srand(seedval);
-	lcgstate.x = (unsigned long) rand() % lcgstate.m;
+	lcgstate.x = (unsigned long) seedval % lcgstate.m;
 }
 
 unsigned long get_next_lcg_value(void)