From af2c098b304b26b3f2221de2001c6678cb2e878f Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Fri, 20 Apr 2018 16:48:39 +0100
Subject: [PATCH 1/1] %CLNCO is Tenex-only.

---
 <mdl.int>/nfree.53 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/<mdl.int>/nfree.53 b/<mdl.int>/nfree.53
index be431d4..dc75468 100644
--- 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
-- 
2.31.1