diff --git a/SYS/KERNEL.S.EVT.txt b/SYS/KERNEL.S.EVT.txt
index 7ecbb76e..713c72ec 100644
--- a/SYS/KERNEL.S.EVT.txt
+++ b/SYS/KERNEL.S.EVT.txt
@@ -131,8 +131,6 @@ S.GetKeyboardEvent
 				bpl .9
 				sta KBDSTROBE
 				
-				sta A2osX.RANDOM16
-				
 				and #$7F
 				ldy #S.EVT.DATA
 				sta (pEvent),y
@@ -151,7 +149,7 @@ S.GetKeyboardEvent
 
 .9				inc A2osX.RANDOM16
 				bne .99
-				inc A2osX.RANDOM16+1
+				dec A2osX.RANDOM16+1
 .99				sec						no event
 				rts					
 *--------------------------------------