X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/b67c17c38e660bbf6f68e23f27af5a974a3b08ac..8501f5f0126385c5c7fc58edd7a44dfd1c94ac6e:/math/pgen.c

diff --git a/math/pgen.c b/math/pgen.c
index 9a822f57..84185e33 100644
--- a/math/pgen.c
+++ b/math/pgen.c
@@ -283,7 +283,7 @@ mp *pgen(const char *name, mp *d, mp *m, pgen_proc *event, void *ectx,
       rc = PGEN_ABORT;
       if (!(act & A_DONE)) {
 	act |= A_ENDSTEP | A_DONE;
-	if (p == P_TEST)
+	if (p == P_TEST && rq != PGEN_BEGIN)
 	  act |= A_ENDTEST;
       }
     }