diff --git a/sectorlisp.S b/sectorlisp.S
index 6dbcab3..f01f17a 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -109,10 +109,8 @@ PrintObject:					# PrintObject(x:si)
 Print:	test	%si,%si
 	jz	NewLine
 	mov	(%si),%si			# ax = Car(Cdr(e))
-	push	%dx
 	call	PrintObject
 	xchg	%dx,%ax
-	pop	%dx
 	ret
 
 NewLine:mov	$'\r',%al