diff --git a/src/syseng/monit.114 b/src/syseng/monit.ats115
similarity index 99%
rename from src/syseng/monit.114
rename to src/syseng/monit.ats115
index e311a224..3c85200e 100644
--- a/src/syseng/monit.114
+++ b/src/syseng/monit.ats115
@@ -439,7 +439,7 @@ COMTTT:	SKIPE C
 
 LOGIN:	PUSHJ P,GETSYL
 	MOVEM B,USRF+1	;SET NEW UNAME (? SO CAN HACK OTHERS DISOWNED PROCEDURES)
-	.LOGIN B,
+	.CALL LBLK
 	JRST CANNOT
 	MOVEM B,LOGNAM
 	MOVEM B,COMPF+1
@@ -449,6 +449,10 @@ LOGIN:	PUSHJ P,GETSYL
 	JRST BEG	;NO COM:USER MAIL
 	JRST XPRINT
 
+LBLK:	400000,,0
+	SIXBIT /LOGIN/
+	400000,,B
+
 DISOWN:	PUSHJ P,CKRUN
 	PUSHJ P,DISOW
 	JRST BEG