diff --git a/SYS/KERNEL.S.CIO.txt b/SYS/KERNEL.S.CIO.txt
index 1000d1d9..0b7b0db8 100644
--- a/SYS/KERNEL.S.CIO.txt
+++ b/SYS/KERNEL.S.CIO.txt
@@ -100,11 +100,11 @@ S.COutA			phx
 				bne .1
 				ldx #DEVMGR.COUT
 				jsr pDevJmp
-				bcs S.COutA.RTS
+				bcs .2
 				lda #10
 .1				ldx #DEVMGR.COUT
 				jsr pDevJmp
-				ply
+.2				ply
 				plx
 S.COutA.RTS		rts
 *--------------------------------------