diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 3d0ec4d..6424579 100755
Binary files a/bin/sectorlisp.bin and b/bin/sectorlisp.bin differ
diff --git a/sectorlisp.S b/sectorlisp.S
index 512ca26..ecd2bcd 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -164,7 +164,7 @@ GetChar:
 PutChar:
 #	push	%bx				# don't clobber di,si,cx,dx
 #	push	%bp				# original ibm pc scroll up bug
-	mov	$7,%bx				# normal mda/cga style page zero
+	xor	%bx,%bx				# normal mda/cga style page zero
 	mov	$0x0e,%ah			# teletype output al cp437
 	int	$0x10				# vidya service
 #	pop	%bp				# preserves al