diff --git a/kodiak.tal b/kodiak.tal
index 4b6a660..576808a 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -384,10 +384,13 @@
         LTH2 ?&match                  ( i^ top^ row^ [n*] )
         POP2r POP2 &no POP #00 JMP2r  ( 0^ )
     &match                            ( i^ top^ row^ [n*] )
+        LDZk #40 AND ?&cancel         ( i^ top^ row^ [n*] )
         STH2 SWP2r column-x           ( x* [top^ row^ n*] )
         STH2r #0008 MUL2 #001c ADD2   ( x* y=28+8n* [top^ row^] )
         STH2r SWP                     ( x* y* row^ top^ )
         start-drag draw #01 JMP2r     ( 1^ )
+    &cancel                           ( i^ top^ row^ [n*] )
+        POP2 POP POP2r #00 JMP2r      ( 0^ )
 
 
 ( @on-click-up ( -> )