diff --git a/libsrc/telestrat/lseek.s b/libsrc/telestrat/lseek.s
index f2f7a32bd..e94cba46c 100644
--- a/libsrc/telestrat/lseek.s
+++ b/libsrc/telestrat/lseek.s
@@ -38,11 +38,9 @@
         ; A & X contains position (from 0 to 15 bits)
         ; RES (2 bytes) contains position (from 16 to 31 bits)
         ; Returns long
-        pha
-        lda     RES+1
-        sta     sreg+1
-        lda     RES
-        sta     sreg
-        pla
+        ldy     RES+1
+        sty     sreg+1
+        ldy     RES
+        sty     sreg
         rts
 .endproc