diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index f95ed5b..62fc3e0 100755
Binary files a/bin/sectorlisp.bin and b/bin/sectorlisp.bin differ
diff --git a/sectorlisp.S b/sectorlisp.S
index 0f16fbc..97a9252 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -213,9 +213,10 @@ Cons:	xchg	%di,%ax
 Pairlis:cmp	$NIL,%di			# Pairlis(x:di,y:si,a:dx):ax
 	je	1f
 	push	2(%di)				# save 1 Cdr(x)
-	push	2(%si)				# save 2 Cdr(y)
+	lodsw
+	push	(%si)				# save 2 Cdr(y)
 	mov	(%di),%di
-	mov	(%si),%si
+	xchg	%ax,%si
 	call	Cons				# preserves dx
 	pop	%si				# restore 2
 	pop	%di				# restore 1