diff --git a/sectorlisp.S b/sectorlisp.S
index 87b2317..46cf3bc 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -109,12 +109,11 @@ Print:	mov	(%si),%si			# si = Cdr(e)
 	mov	(%si),%ax			# ax = Car(Cdr(e))
 EvalPrint:
 	call	Eval
-	push	%ax
 	push	%dx
 	xchg	%ax,%si
 	call	PrintObject
+	xchg	%dx,%ax
 	pop	%dx
-	pop	%ax
 	ret
 
 Read:	push	%dx