diff --git a/term.tal b/term.tal
index 2b7f1af..44c138b 100644
--- a/term.tal
+++ b/term.tal
@@ -255,9 +255,9 @@
         INC2
         GTH2k ?&yloop
     POP2 POP2 POP2r
-    .is-lit LDZ #00 EQU ?&cursor redraw-selection draw-cursor !&finally
-    &cursor draw-cursor draw-pointer
-    &finally #00 .dirty STZ
+    .is-lit LDZ #00 EQU ?&pointer redraw-selection !&finally
+    &pointer draw-pointer
+    &finally draw-cursor #00 .dirty STZ
     &done BRK
 
 @screen-to-cell ( row* col* -> )