diff --git a/acb_modular/hilbert_class_poly.c b/acb_modular/hilbert_class_poly.c
index 52220ce5..6a9d1a89 100644
--- a/acb_modular/hilbert_class_poly.c
+++ b/acb_modular/hilbert_class_poly.c
@@ -112,7 +112,7 @@ acb_modular_hilbert_class_poly(fmpz_poly_t res, slong D)
 
         do
         {
-            if (ac % a == 0 && n_gcd_full(n_gcd(a, b), ac/a) == 1)
+            if (ac % a == 0 && n_gcd(n_gcd(a, b), ac/a) == 1)
             {
                 c = ac / a;
 
diff --git a/arb_fmpz_poly/gauss_period_minpoly.c b/arb_fmpz_poly/gauss_period_minpoly.c
index 9a525b6c..a9f6c52f 100644
--- a/arb_fmpz_poly/gauss_period_minpoly.c
+++ b/arb_fmpz_poly/gauss_period_minpoly.c
@@ -21,7 +21,7 @@ arb_fmpz_poly_gauss_period_minpoly(fmpz_poly_t res, ulong q, ulong n)
     int done, real;
 
     if (n == 0 || !n_is_prime(q) || ((q - 1) % n) != 0 ||
-            n_gcd_full(n, (q - 1) / n) != 1)
+            n_gcd(n, (q - 1) / n) != 1)
     {
         fmpz_poly_zero(res);
         return;