correct exit status

diff --git a/mach/mantra/int/mloopa b/mach/mantra/int/mloopa
index f0c0359..187c791 100644 (file)
--- a/mach/mantra/int/mloopa
+++ b/mach/mantra/int/mloopa
@@ -340,6 +340,7 @@ lhalt:
                clr.l   (a1)+           !skip file name
                bra     4b              !only new line
 9:
+               cl      -(sp)
        .sect .data
 emlast:        .asciz  "em_last"
 mess1: .asciz  "no line processed yet\n"