diff --git a/src/syseng/lock.155 b/src/syseng/lock.156
similarity index 99%
rename from src/syseng/lock.155
rename to src/syseng/lock.156
index 8588cf39..380c0349 100755
--- a/src/syseng/lock.155
+++ b/src/syseng/lock.156
@@ -681,7 +681,8 @@ AITEST:	.CALL [SETZ
 	 AOS (P)				;SKIPS IF RUN ON AI.
 	POPJ P,
 
-TVQPY:	PUSHJ P,AITEST
+TVQPY:	MOVE E,[SQUOZE 0,TT11P]
+	.EVAL E,
 	 JRST TVLUZ
 	.CALL [	SETZ
 		SIXBIT /T11MP/