diff --git a/Luminary099/KEYRUPT_UPRUPT.agc b/Luminary099/KEYRUPT_UPRUPT.agc
index ac8d035..37090f9 100644
--- a/Luminary099/KEYRUPT_UPRUPT.agc
+++ b/Luminary099/KEYRUPT_UPRUPT.agc
@@ -83,7 +83,7 @@ UPRPT1		CAF	LOW5		# TEST FOR TRIPLE CHAR REDUNDANCY
 		COM
 		TC	UPTEST
 
-UPCK		CS	ELRCODE		# CODE IS GOOD. IF CODE = 'ERROR RESET',
+UPOK		CS	ELRCODE		# CODE IS GOOD. IF CODE = 'ERROR RESET',
 		AD	KEYTEMP1	# CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
 		EXTEND			# IF CODE DOES NOT = 'ERROR RESET', ACCEPT
 		BZF	CLUPLOCK	# CODE ONLY IF UPLOCKFL IS CLEAR (=0).