diff --git a/libsrc/common/strcpy.s b/libsrc/common/strcpy.s
index 649424def..a48f0e35a 100644
--- a/libsrc/common/strcpy.s
+++ b/libsrc/common/strcpy.s
@@ -6,7 +6,7 @@
 
 	.export		_strcpy
 	.import		popax
-	.importzp	ptr1, ptr2, tmp3
+	.importzp	ptr1, ptr2
 
 _strcpy:
 	sta	ptr1		; Save src
@@ -14,7 +14,6 @@ _strcpy:
 	jsr	popax 		; Get dest
 	sta	ptr2
 	stx	ptr2+1
-       	sta    	tmp3  		; remember for function return
 	ldy	#$00
 
 L1:	lda	(ptr1),y
@@ -26,6 +25,6 @@ L1:	lda	(ptr1),y
 	inc	ptr2+1
 	bne	L1
 
-L9:	lda	tmp3            ; X still contains high byte
+L9:    	lda    	ptr2            ; X still contains high byte
  	rts