diff --git a/c64/kernal/ciout.s b/c64/kernal/ciout.s
index cc6f666a..7894c5eb 100644
--- a/c64/kernal/ciout.s
+++ b/c64/kernal/ciout.s
@@ -6,11 +6,10 @@ ciout:
 	pha
 	lda C3PO
 	bne ciout_send_byte
-	
+
 	;; Nothing to send - set buffer as valid, store byte there
-	inc
-	sta C3PO
-	
+	inc C3PO
+
 	;; Clear carry flag to indicate success
 	clc
 	
diff --git a/c64/kernal/iec_turnaround_to_talk.s b/c64/kernal/iec_turnaround_to_talk.s
new file mode 100644
index 00000000..d372ad00
--- /dev/null
+++ b/c64/kernal/iec_turnaround_to_talk.s
@@ -0,0 +1,12 @@
+	;; 	According to http://www.zimmers.net/anonftp/pub/cbm/programming/serial-bus.pdf
+	;;  	pages 7--8.
+	;; See also https://www.pagetable.com/?p=1135, https://github.com/mist64/cbmbus_doc
+
+iec_turnaround_to_talk:
+
+	;; XXX implement this
+	
+	clc
+	rts
+
+
diff --git a/c64/kernal/load.s b/c64/kernal/load.s
index f75c4c1d..72db27b7 100644
--- a/c64/kernal/load.s
+++ b/c64/kernal/load.s
@@ -198,7 +198,8 @@ load_done:
 	lda #$0D
 	jsr JCHROUT
 *
-	;; Close file on drive
+	;; Close file on drive - start by turnaround to talker
+	jsr iec_turnaround_to_talk
 	
 	;; Command drive to stop talking and to close the file
 	jsr untlk