diff --git a/term.tal b/term.tal
index c3e3859..c17aea6 100644
--- a/term.tal
+++ b/term.tal
@@ -419,7 +419,7 @@
 @copy-line ( y* x1* x0* -> y* )
     STH2 STH2 DUP2 find-natural-end    ( y* xend* [x0* x1*] )
     STH2r min                          ( y* xlim=min(xend,x1)* [x0*] )
-    DUP2 STH2kr GTH2 ,&ok              ( y* xlim* [x0*] )
+    DUP2 STH2kr GTH2 ?&ok              ( y* xlim* [x0*] )
     POP2 POP2r JMP2r                   ( y* ; return if line is empty )
     &ok OVR2 .cols LDZ2 MUL2           ( y* xlim* y*cols* [x0*] )
     STH2kr ADD2 #10 SFT2 ;cells ADD2   ( y* xlim* addr* [x0*] )