From a078fe7ce073800b93054ae573fe46b0abe7511b Mon Sep 17 00:00:00 2001
From: vermaseren <t68@nikhef.nl>
Date: Mon, 20 Jul 2015 10:57:01 +0200
Subject: [PATCH] Repaired error in ExpandRat with AT.WorkPointer

---
 sources/ratio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sources/ratio.c b/sources/ratio.c
index 470a00d2..f688082c 100644
--- a/sources/ratio.c
+++ b/sources/ratio.c
@@ -3197,7 +3197,7 @@ NormArg:;
 					*r++ = arg2[0]; *r++ = arg2[1];
 					m++; while ( m < mm ) *r++ = *m++;
 					*rrr = r-rrr;
-					if ( AT.WorkPointer < AT.WorkTop && AT.WorkPointer >= AT.WorkSpace )
+					if ( r < AT.WorkTop && r >= AT.WorkSpace )
 								AT.WorkPointer = r;
 					Normalize(BHEAD rrr);
 					StoreTerm(BHEAD rrr);