diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 1b87073..ba247c7 100755
Binary files a/bin/sectorlisp.bin and b/bin/sectorlisp.bin differ
diff --git a/sectorlisp.S b/sectorlisp.S
index c0c0143..3b1305e 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -51,13 +51,13 @@ begin:	mov	$0x8000,%sp			# uses higher address as stack
 	pop	%ss				# errata exists but don't care
 	mov	$2,%bx
 main:	mov	%sp,%cx
+	mov	$'\r',%al
+	call	PutChar				# Call first to initialize %dx
 	call	GetToken
 	call	GetObject
 	call	Eval
 	xchg	%ax,%si
 	call	PrintObject
-	mov	$'\r',%al
-	call	PutChar
 	jmp	main
 
 GetToken:					# GetToken():al, dl is g_look