diff --git a/mach/mantra/int/mloop0 b/mach/mantra/int/mloop0
index d5cec5fb7..8b4f4951f 100644
--- a/mach/mantra/int/mloop0
+++ b/mach/mantra/int/mloop0
@@ -179,6 +179,7 @@ atof:		tst.b	(a4)+	;	bne	atof
 		rts
 
 blshift:	move.l	a1,a0	;	move.l	#1024,d0
+		move.l	d1,-(sp)
 		tst.l	-(sp)
 		sub.l	d0,a0	;	move.l	d0,-(sp)
 		sub.l	d0,a4			!update pointer
@@ -191,6 +192,7 @@ blshift:	move.l	a1,a0	;	move.l	#1024,d0
 		testen	(sp)+	;	bne	badarg
 		move.l	(sp)+,d0
 		move.l	(sp)+,a1
+		move.l	(sp)+,d1
 		cmp.l	#1024,d0 ;	beq	1f
 		add.l	d0,a1
 1:		rts
diff --git a/mach/mantra/int/mloop9 b/mach/mantra/int/mloop9
index 70bbc529b..b267ffca9 100644
--- a/mach/mantra/int/mloop9
+++ b/mach/mantra/int/mloop9
@@ -248,7 +248,7 @@ fil_l:		adroff		;	move.w	(a5),d0
 0:		jmp	(a4)
 
 !-----------------------------------------------------------------------------
-lni_z:		add	#1,(a6)
+lni_z:		ad	#1,(a6)
 #if	count+flow+prof
 		add.l	#1,countptr
 #if	prof
@@ -256,7 +256,8 @@ lni_z:		add	#1,(a6)
 #endif
 #endif
 		bra	8f
-lin_l:		adroff		;	move.w	(a5),d0 ;	bra 1f
+lin_l:		adroff		;	clr.l	d0
+		move.w	(a5),d0 ;	bra 1f
 lin_q:		move.l	(sp)+,d0 ;	bra	1f
 lin_s0:		move.l	#0,d0	;	move.b	(a3)+,d0
 1:		cmp	(a6),d0 ;	beq	9f