diff --git a/mach/m68020/libem/csa.s b/mach/m68020/libem/csa.s
index b540a2e74..b6e117e24 100644
--- a/mach/m68020/libem/csa.s
+++ b/mach/m68020/libem/csa.s
@@ -8,9 +8,10 @@ ECASE=20
 .sect .text
 
 .csa:
-	move.l	(sp)+, a0	! jump table address
+		! jump table address in a0
+		! index in d0
+
 	move.l	(a0)+, a1	! default address
-	move.l	(sp)+, d0	! index
 	sub.l	(a0)+, d0	! index - lower bound
 	blt	1f
 	cmp.l	(a0)+, d0	! rel. index, upper - lower bound
diff --git a/mach/m68020/libem/csb.s b/mach/m68020/libem/csb.s
index 550f496c9..fe2d9d690 100644
--- a/mach/m68020/libem/csb.s
+++ b/mach/m68020/libem/csb.s
@@ -8,8 +8,9 @@ ECASE=20
 .sect .text
 
 .csb:
-	move.l	(sp)+, a0	! case descriptor
-	move.l	(sp)+, d0	! index
+		! case descriptor in a0
+		! index in d0
+
 	move.l	(a0)+, a1	! default jump address
 	move.l	(a0)+, d1	! # entries
 	beq	3f
diff --git a/mach/m68020/libem/strscript b/mach/m68020/libem/strscript
index 51b62fd45..ee4cc1b41 100644
--- a/mach/m68020/libem/strscript
+++ b/mach/m68020/libem/strscript
@@ -1,3 +1,3 @@
-acc -c.s -L -LIB -I../../../h trpstr.c
+m68020 -c.s -L -LIB -I../../../h trpstr.c
 sed s/_trpstr/.trpstr/g < trpstr.s > trpstr.ss
 mv trpstr.ss trpstr.s