diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index f756d40..7f12dcb 100755
Binary files a/bin/sectorlisp.bin and b/bin/sectorlisp.bin differ
diff --git a/sectorlisp.S b/sectorlisp.S
index b3e8c2b..d4cbee8 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -60,7 +60,7 @@ GetToken:					# GetToken():al, dl is g_look
 	cmp	$' ',%al
 	jbe	2f
 	stosb
-	xchg	%ax,%bp
+	xchg	%ax,%si
 2:	call	GetChar				# exchanges dx and ax
 	cmp	$' ',%al
 	jbe	1b
@@ -69,7 +69,7 @@ GetToken:					# GetToken():al, dl is g_look
 	cmp	$')',%dl			# dl = g_look
 	ja	1b
 3:	movb	%bh,(%di)			# bh is zero
-	xchg	%bp,%ax
+	xchg	%si,%ax
 	ret
 
 .PrintList: