diff --git a/regex.tal b/regex.tal
index 7ce98df..c428c57 100644
--- a/regex.tal
+++ b/regex.tal
@@ -212,7 +212,7 @@
     INC2 LDA2 STH2                              ( load and stash next )
     DUP2 ;string-start LDA2 EQU2 ,&at-start JCN ( at string start? )
     ;match-multiline LDA ,&no-match JCN         ( are we in multi-line mode? )
-    #0001 SUB2 LDAk #0a EQU ,&at-start JCN      ( just after newline? )
+    DUP2 #0001 SUB2 LDA #0a EQU ,&at-start JCN      ( just after newline? )
     &no-match POP2r POP2 ;goto-backtrack JMP2   ( clear stacks and backtrack )
     &at-start STH2r ;goto-next JMP2             ( go to next without advancing )