From fe7a26bed50f039ba4afcf67b9fb8286be6a2b7f Mon Sep 17 00:00:00 2001
From: vermaseren <t68@nikhef.nl>
Date: Fri, 16 Dec 2016 19:50:07 +0100
Subject: [PATCH] Repaired issue 154

---
 sources/execute.c | 3 +--
 sources/proces.c  | 4 +---
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/sources/execute.c b/sources/execute.c
index 2bf6e174..61a03036 100644
--- a/sources/execute.c
+++ b/sources/execute.c
@@ -2325,9 +2325,8 @@ LONG CountTerms1(PHEAD0)
 	for(;;) {
 		numterms++;
 		retval = GetOneTerm(BHEAD AT.WorkPointer,AR.infile,&startposition,0);
+		if ( retval >= 0 ) AR.CompressPointer = oldipointer;
 		if ( retval <= 0 ) break;
-
-		AR.CompressPointer = oldipointer;
 		t = AR.CompressPointer;
 		if ( *t < (1 + decr + ABS(*(t+*t-1))) ) break;
 		t++;
diff --git a/sources/proces.c b/sources/proces.c
index 476a68f7..b2bab9ff 100644
--- a/sources/proces.c
+++ b/sources/proces.c
@@ -4497,10 +4497,8 @@ WORD Deferred(PHEAD WORD *term, WORD level)
 		AR.CompressPointer = oldipointer;
 		AT.WorkPointer = termout;
 		retval = GetOneTerm(BHEAD AT.WorkPointer,AR.infile,&startposition,0);
-
+		if ( retval >= 0 ) AR.CompressPointer = oldipointer;
 		if ( retval <= 0 ) break;
-
-		AR.CompressPointer = oldipointer;
 		t = AR.CompressPointer;
 		if ( *t < (1 + decr + ABS(*(t+*t-1))) ) break;
 		t++;