diff --git a/src/tj6/tj6.30 b/src/tj6/tj6.31
similarity index 99%
rename from src/tj6/tj6.30
rename to src/tj6/tj6.31
index 2f26c0b2..c014420b 100644
--- a/src/tj6/tj6.30
+++ b/src/tj6/tj6.31
@@ -3414,9 +3414,10 @@ ATRANS:	MOVE	K,A		;.TRANS
 	PUSHJ	P,RCSV
 	MOVEM	A,TRNTBL(K)
 	PUSHJ	P,RCSV
-	CAIN	A,",
-	JRST	ATRANS
+	CAIE	A,",
 	POPJ	P,
+	PUSHJ	P,RCSV
+	JRST	ATRANS
 
 ASTERM:	MOVEM	A,STERMC	;.STERM
 	POPJ	P,