diff --git a/c64/basic/basic_delete_line.s b/c64/basic/basic_delete_line.s
index 48ce3516..41076d72 100644
--- a/c64/basic/basic_delete_line.s
+++ b/c64/basic/basic_delete_line.s
@@ -26,6 +26,16 @@ basic_delete_line:
 	sec
 	sbc basic_current_line_ptr+0
 	sta tokenise_work3
+	lda tokenise_work4
+	sbc basic_current_line_ptr+1
+	sta tokenise_work4
+
+	jsr printf
+	.byte "LINE LENGTH IS $"
+	.byte $f0,<tokenise_work4,>tokenise_work4
+	.byte $f0,<tokenise_work3,>tokenise_work3
+	.byte $0d,0
+	
 	lda tokenise_work4
 	sbc #0
 	cmp #$00
diff --git a/c64/basic/basic_shift_mem_down.s b/c64/basic/basic_shift_mem_down.s
index d8ff0d27..87f1f742 100644
--- a/c64/basic/basic_shift_mem_down.s
+++ b/c64/basic/basic_shift_mem_down.s
@@ -32,7 +32,7 @@ basic_shift_mem_down_and_relink:
 	.byte $f1,<basic_end_of_text_ptr,>basic_end_of_text_ptr
 	.byte $f0,<basic_end_of_text_ptr,>basic_end_of_text_ptr
 	.byte $0d
-	.byte "SHIFTING UP $"
+	.byte "SHIFTING DOWN $"
 	.byte $f1,<memmove_size,>memmove_size
 	.byte $f0,<memmove_size,>memmove_size
 	.byte " BYTES FROM $"
@@ -54,9 +54,10 @@ basic_shift_mem_down_and_relink:
 	;; This means we have to then reduce the source and
 	;; target pointers by the same amount
 
-	lda memmove_size
+	lda memmove_size+0
 	eor #$ff
 	sta tokenise_work3
+	sta memmove_size+0
 
 	lda memmove_src+0
 	sec
@@ -91,6 +92,8 @@ basic_shift_mem_down_and_relink:
 
 	jsr shift_mem_down
 
+	inc $d020
+	
 	;; Get length of deletion back
 	pla
 	sta tokenise_work3