From dbc9bcc41b4ee65e056e9ca49073c4281204d621 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Mon, 16 Apr 2018 11:51:11 +0100
Subject: [PATCH 1/1] Fix a couple of bad EXPUNGEs.

I don't think we can easily get rid of all of these...
---
 <mdl.int>/muddle.347 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/<mdl.int>/muddle.347 b/<mdl.int>/muddle.347
index cb732d5..a7504a5 100644
--- a/<mdl.int>/muddle.347
+++ b/<mdl.int>/muddle.347
@@ -460,7 +460,7 @@ TERMIN
 ]
 
 
-RMT [EXPUNGE GENERAL,NUMSTA
+RMT [EXPUNGE GENERAL,NUMSAT
 ]
 
 DEFINE XPUNGR A
@@ -578,7 +578,7 @@ TYPMAK SOFFS,[[OFFS,OFFSET]]
 IFN MAIN,[RMT [LOC SAVE
 	]
 	]
-IF2,EXPUNGE TYPMAK,DOTYPS
+IF2,EXPUNGE TYPMAK
 
 RMT [EQUALS XP EXPUNGE
 IF2,XP STMPLT
-- 
2.31.1