diff --git a/gui/teatime/teatime.tal b/gui/teatime/teatime.tal
index 219011b..d945beb 100644
--- a/gui/teatime/teatime.tal
+++ b/gui/teatime/teatime.tal
@@ -39,7 +39,8 @@
 	[ LIT2 40 &f $1 ] INCk ,&f STR
 	NEQ ?{
 		[ LIT2 00 _&f ] STR
-		DUP2 #0001 SUB2 <set-seconds> }
+		#0001 SUB2 DUP2 <set-seconds>
+		ORAk ?{ <ring> } }
 	POP2 BRK
 
 @on-mouse ( -> )
@@ -60,6 +61,10 @@
 (
 @|core )
 
+@<ring> ( -- )
+	( bell ) #0718 DEO
+	JMP2r
+
 @<freeze-timer> ( -- )
 	;on-frame-freeze .Screen/vector DEO2
 	#c0 ;on-frame-freeze/lock STA