diff --git a/mach/m68k4/libem/csa.s b/mach/m68k4/libem/csa.s
index b81acb340..9b8a483d0 100644
--- a/mach/m68k4/libem/csa.s
+++ b/mach/m68k4/libem/csa.s
@@ -27,6 +27,6 @@
 	rts			! not a real rts
 2:
 	move.w	#ECASE,-(sp)
-	jmp	.fat
+	jmp	.fatal
 
 .align 2
diff --git a/mach/m68k4/libem/csb.s b/mach/m68k4/libem/csb.s
index a5376b18e..c97afab39 100644
--- a/mach/m68k4/libem/csb.s
+++ b/mach/m68k4/libem/csb.s
@@ -21,7 +21,7 @@
 	move.l	a1,d1		! default jump address
 	bne	4f
 	move.l	#ECASE,-(sp)
-	jmp	.fat
+	jmp	.fatal
 3:
 	move.l	(a0)+,a1	! get jump address
 4:
diff --git a/mach/m68k4/libem/fat.s b/mach/m68k4/libem/fat.s
index 670a3cf60..044a36159 100644
--- a/mach/m68k4/libem/fat.s
+++ b/mach/m68k4/libem/fat.s
@@ -1,11 +1,11 @@
-.define	.fat
+.define	.fatal
 .sect .text
 .sect .rom
 .sect .data
 .sect .bss
 
 	.sect .text
-.fat:
+.fatal:
 	jsr	.trp	
 	jmp	EXIT
 .align 2
diff --git a/mach/m68k4/libem/lfr.s b/mach/m68k4/libem/lfr.s
index 82e9d8153..3b4ed5288 100644
--- a/mach/m68k4/libem/lfr.s
+++ b/mach/m68k4/libem/lfr.s
@@ -25,5 +25,5 @@
 	jmp(a0)
 4:
 	move.w	#EILLINS,-(sp)
-	jmp	.fat
+	jmp	.fatal
 .align 2
diff --git a/mach/m68k4/libem/ret.s b/mach/m68k4/libem/ret.s
index 2e5bd189c..c530e362e 100644
--- a/mach/m68k4/libem/ret.s
+++ b/mach/m68k4/libem/ret.s
@@ -26,5 +26,5 @@
 	rts
 4:
 	move.w	#EILLINS,-(sp)
-	jmp	.fat
+	jmp	.fatal
 .align 2