%CLNCO is Tenex-only.

diff --git a/<mdl.int>/nfree.53 b/<mdl.int>/nfree.53
index be431d4f89ff65ddb201b1c4f040807d528af437..dc75468529cffb07ecca11510a692e4125da1309 100644 (file)
--- a/<mdl.int>/nfree.53
+++ b/<mdl.int>/nfree.53
@@ -4,6 +4,7 @@ TITLE MODIFIED AFREE FOR MUDDLE
 RELOCATABLE
 
 .INSRT MUDDLE >
+SYSQ
 
 .GLOBAL CAFREE,CAFRET,PARNEW,AGC,PARBOT,CODTOP,CAFRE1
 .GLOBAL STOGC,STOSTR,CAFRE,ISTOST,STOLST,SAT,ICONS,BYTDOP
@@ -139,7 +140,7 @@ CLOOP:      CAMG    A,(C)           ; skip if not big enough
 
 CHAVIT:        MOVE    C,CODTOP
        MOVE    E,PARBOT
-       PUSHJ   P,%CLNCO        ; flush extra pages
+IFE ITS,       PUSHJ   P,%CLNCO        ; flush extra pages
                MOVE    E,PARBOT        ; find amount obtained
        SUBI    E,1             ; dont use a real pair
        MOVEI   C,(E)           ; for reset of CODTOP