diff --git a/sectorlisp.S b/sectorlisp.S
index 8db0522..787d0b9 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -108,7 +108,7 @@ PrintObject:					# PrintObject(x:si)
 
 Print:	test	%si,%si
 	jz	NewLine
-	mov	(%si),%si			# ax = Car(Cdr(e))
+	xchg	%di,%si
 	call	PrintObject
 	ret