index 3a11e85..c382c8c 100755
--- a/t/genprime.t
+++ b/t/genprime.t
@@ -8,8 +8,8 @@
 ##
 ## $Id$
 
+use Math::PariInit qw( floor stack=16000000 );
 use Crypt::Primes qw(maurer); 
-use Math::Pari qw(floor);
 
 print "1..10\n";
 
diff --git a/t/genprime_elgamal.t b/t/genprime_elgamal.t
index 4437650..ce98380 100755
--- a/t/genprime_elgamal.t
+++ b/t/genprime_elgamal.t
@@ -8,8 +8,8 @@
 ##
 ## $Id$
 
+use Math::PariInit qw( floor stack=16000000 );
 use Crypt::Primes; 
-use Math::Pari qw(floor);
 
 print "1..10\n";