diff --git a/gui/shaviankb/shaviankb.tal b/gui/shaviankb/shaviankb.tal
index 1b09671..49f407c 100644
--- a/gui/shaviankb/shaviankb.tal
+++ b/gui/shaviankb/shaviankb.tal
@@ -172,11 +172,6 @@
 	[ LIT2 &color 03 -Screen/sprite ] DEOk DEOk DEOk DEO
 	JMP2r
 
-@<draw-times> ( color times -- )
-	OVR .Screen/sprite DEO
-	INC DUP ?<draw-times>
-	POP2 JMP2r
-
 @<draw-frame> ( x* y* w h sprite* -- )
 	.Screen/addr DEO2
 	,&h STR
@@ -205,14 +200,17 @@
 	,&w LDR <draw-frame>/repeat
 	<draw-frame>/next
 	[ LIT2 81 -Screen/sprite ] DEO
-	( fill ) <draw-frame>/next
 	,&x LDR2 #0008 ADD2 .Screen/x DEO2
 	,&y LDR2 #0008 ADD2 .Screen/y DEO2
 	JMP2r
 	&next .Screen/addr DEI2k #0010 ADD2 ROT DEO2
 	JMP2r
-	&repeat #00 &repeat-loop [ LIT2 81 -Screen/sprite ] DEO
-	INC GTHk ?&repeat-loop
+	&repeat #8100 ROT SUB
+	( >> )
+
+@<draw-times> ( color times -- )
+	OVR .Screen/sprite DEO
+	INC DUP ?<draw-times>
 	POP2 JMP2r
 
 @<update-pointer> ( color addr* -- )