X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Fagc.141;fp=%3Cmdl.int%3E%2Fagc.141;h=e0d8cdfea5b78730b69699397381803fe94998c9;hb=71dcf26c83a16580789e53f9a8e3ebacc61e1133;hp=a0f2684fcc2aa91ac650b7700ff2e2e41228b995;hpb=1896858948199f2ba18094e68295a41387e8abf3;p=pdp10-muddle.git

diff --git a/<mdl.int>/agc.141 b/<mdl.int>/agc.141
index a0f2684..e0d8cdf 100644
--- a/<mdl.int>/agc.141
+++ b/<mdl.int>/agc.141
@@ -489,7 +489,7 @@ PURCLS:	MOVE	P,[-2000,,MRKPDL]
 	MOVE	A,INF3		; GET PTR TO PURIFIED STRUCTURE
 	SKIPN	NPRFLG
 	PUSHJ	P,%PURIF	;  PURIFY
-	PUSHJ	P,%PURMD
+IFE ITS,	PUSHJ	P,%PURMD
 
 	SETZM	GPURFL
 	JRST	EPURIF		; FINISH UP