diff --git a/lang/m2/libm2/catch.c b/lang/m2/libm2/catch.c
index 3d3529f5e..909b3f7e3 100644
--- a/lang/m2/libm2/catch.c
+++ b/lang/m2/libm2/catch.c
@@ -43,7 +43,7 @@ static struct errm {
 
 	{ M2_TOOLARGE,	"stack size of process too large"},
 	{ M2_TOOMANY,	"too many nested traps + handlers"},
-	{ M2_NORESULT,	"no RETURN from procedure function"},
+	{ M2_NORESULT,	"no RETURN from function procedure"},
 	{ M2_UOVFL,	"cardinal overflow"},
 	{ M2_FORCH,	"(warning) FOR-loop control variable was changed in the body"},
 	{ M2_UUVFL,	"cardinal underflow"},