diff --git a/src/system/ts3tty.400 b/src/system/ts3tty.401
similarity index 99%
rename from src/system/ts3tty.400
rename to src/system/ts3tty.401
index 14361a79..56c2c5b5 100755
--- a/src/system/ts3tty.400
+++ b/src/system/ts3tty.401
@@ -3337,6 +3337,7 @@ STATY2:	CAIL B,TIBS-10.
 TYOIOP:	TDZA A,A		;OUUTPUT CHNL.
 TYIIOP:	 MOVEI A,TYIMSK-TYOMSK	;INPUT CHNL, SET TYIMSK INSTEAD TYOMSK.
 	CONO PI,CLKOFF	;TO PREVENT TELETYPE (IF CONSOLE) FROM MOVING AROUND
+	MOVE B,(R)	;GET I/O CHANNEL WORD
 	JUMPGE B,TYIOP1	;JUMP IF OPEN AS DEVICE
 	SKIPGE TTYTBL(U)	;IF PROCEDURE DOESN'T HAVE CONSOLE,
 	 JRST CLKONJ	;THEN THAT'S ALL