--- figforth_pace.orig.asm	2009-06-15 18:00:29.000000000 -0700
+++ figforth_pace.fixed.asm	2009-06-15 18:01:54.000000000 -0700
@@ -15,6 +15,7 @@
 ;*               SAN CARLOS, CA 94070              *
 ;*                                                 *
 ;*      PACE IMPLEMENTATION BY DAVID KILBRIDGE     *
+;*     USLASH BUG FIX BY ERIC SMITH, 9-MAY-2009    *
 ;***************************************************
 ;
 	.ASECT
@@ -459,9 +460,8 @@
 	CAI	X,1		; SAVE -(DIVISOR) FOR
 	ST	X,1(SP)		;  CONVENIENCE
 	LI	X,16		; LOOP COUNT
-	SHL	0,1,1		; SHIFT LO INTO LINK
-POOL:	ROL	1,1,1		; ROTATE HI WITH LINK
-	ROL	0,1,1		; ROTATE HI INTO QUOT
+POOL:	SHL	0,1,1		; SHIFT LO WITH LINK
+	ROL	1,1,1		; ROTATE LINK INTO HI
 	ADD	1,1(SP)		; SUBTR DIVSR FROM HI
 	SUBB	0,MIN1		; ADD CARRY TO QUOT
 	BOC	BIT0,.+2	; IF QUOT BIT = 0,