diff --git a/modcurve/torsion-subscheme.c b/modcurve/torsion-subscheme.c
index c0a19e26dadb8a8c437c184fc728de4302113815..97f44dceb960a4426c0ed2c2d4baccd8cc070374 100644
--- a/modcurve/torsion-subscheme.c
+++ b/modcurve/torsion-subscheme.c
@@ -281,12 +281,11 @@ eval_function(GEN J, GEN D, GEN multiples_O, long *w) {
 
 static GEN
 values_from_basis(GEN J, GEN V1, GEN V2, long l, GEN multiples_O) {
-  pari_sp av = avma, av1;
+  pari_sp av = avma;
   long i, j, w, W = 0;
   GEN D, V;
 
   err_printf("computing function values:");
-  av1 = avma;
   V = zeromatcopy(l, l);
   for (i = 0; i < l; i++) {
     for (j = 0; j < l; j++) {
@@ -295,8 +294,8 @@ values_from_basis(GEN J, GEN V1, GEN V2, long l, GEN multiples_O) {
       D = jacobian_addflip(J, gel(V1, i + 1), gel(V2, j + 1));
       gcoeff(V, i + 1, j + 1) = eval_function(J, D, multiples_O, &w);
       W += w;
-      if (gc_needed(av1, 1))
-	V = gerepilecopy(av1, V);
+      if (gc_needed(av, 1))
+	V = gerepilecopy(av, V);
     }
   }
   err_printf("\n");