diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index ebe092aa10..e8b79bed72 100644
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -53,7 +53,7 @@ focused? blink blink-alarm ;
     dup '[ _ blink-caret ] 750 milliseconds every >>blink-alarm drop ;
 
 : stop-blinking ( editor -- )
-    blink-alarm>> cancel-alarm ;
+    [ [ cancel-alarm ] when* f ] change-blink-alarm drop ;
 
 : restart-blinking ( editor -- )
     dup focused?>> [