From 284d5ee69032ed5264fa142d522a9aaebaf08356 Mon Sep 17 00:00:00 2001
From: mateoconlechuga <matthewwaltzis@gmail.com>
Date: Tue, 24 Sep 2019 20:47:08 -0600
Subject: [PATCH] fix renaming

---
 src/features.asm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/features.asm b/src/features.asm
index f1c0d12..c6fc8ad 100644
--- a/src/features.asm
+++ b/src/features.asm
@@ -216,8 +216,8 @@ current_input_mode := $-1
 	call	util_move_prgm_name_to_op1	; move the current name to op1
 	ld	hl,cesium.Arc_Unarc
 	ld	(.jump_smc),hl
-	ld	hl,name_buffer
-	ld	de,ti.OP1
+	ld	de,name_buffer
+	ld	hl,ti.OP1
 	ldi
 	call	ti.PushOP1
 	ld	hl,name_buffer
@@ -239,8 +239,10 @@ current_input_mode := $-1
 	pop	af
 	jp	nc,.get_name			; check if name already exists
 .locate_program:
+	call	ti.PushOP1
 	call	ti.ChkFindSym
 	call	ti.ChkInRam
+	call	ti.PopOP1
 	jr	nz,.in_archive
 	ld	hl,$f8				; _ret
 	ld	(.jump_smc),hl