diff --git a/asminc/apple2.inc b/asminc/apple2.inc
index 5ebf73164..528c463a1 100644
--- a/asminc/apple2.inc
+++ b/asminc/apple2.inc
@@ -15,6 +15,7 @@ PROMPT  :=      $33     ; Used by GETLN
 RNDL    :=      $4E     ; Random counter low
 RNDH    :=      $4F     ; Random counter high
 HIMEM   :=      $73     ; Highest available memory address+1
+CURLIN  :=      $75     ; Current line number being executed
 
 ;-----------------------------------------------------------------------------
 ; Vectors
diff --git a/libsrc/apple2/read.s b/libsrc/apple2/read.s
index 14c80b7e2..99c189cbd 100644
--- a/libsrc/apple2/read.s
+++ b/libsrc/apple2/read.s
@@ -19,11 +19,14 @@
         .segment        "ONCE"
 
 initprompt:
-        ; Set prompt <> ']' to let DOS 3.3 know that we're
-        ; not in Applesoft immediate mode and thus keep it
-        ; from scanning our device I/O for DOS commands.
+        ; Set prompt <> ']' and currently executed Applesoft
+        ; line number hibyte <> $FF to let DOS 3.3 (at $A65E)
+        ; know that we're not in Applesoft immediate mode and
+        ; thus keep it from scanning our device I/O for DOS
+        ; commands.
         lda     #$80            ; Same value used at $D52C
         sta     PROMPT
+        sta     CURLIN+1        ; Any value <> $FF will do
         rts
 
         .code