diff --git a/modules/src/em_code/k/em.c b/modules/src/em_code/k/em.c
index 04e7a8040..490600799 100644
--- a/modules/src/em_code/k/em.c
+++ b/modules/src/em_code/k/em.c
@@ -15,7 +15,7 @@
 /*
 	C_putbyte(), C_open() and C_close() are the basic routines for
 	respectively write on, open and close the output file.
-	The put_*() functions serve as formatting functions of the
+	The C_pt_*() functions serve as formatting functions of the
 	various EM language constructs.
 	See "Description of a Machine Architecture for use with
 	Block Structured Languages" par. 11.2 for the meaning of these
@@ -84,7 +84,7 @@ C_magic()
 #define	fit16i(x)	((x) >= (long)0xFFFF8000 && (x) <= (long)0x00007FFF)
 #define	fit8u(x)	((x) <= 0xFF)		/* x is already unsigned */
 
-put_ilb(l)
+C_pt_ilb(l)
 	register label l;
 {
 	if (fit8u(l))	{
@@ -97,7 +97,7 @@ put_ilb(l)
 	}
 }
 
-put_dlb(l)
+C_pt_dlb(l)
 	register label l;
 {
 	if (fit8u(l))	{
@@ -110,7 +110,7 @@ put_dlb(l)
 	}
 }
 
-put_cst(l)
+C_pt_cst(l)
 	register arith l;
 {
 	if (l >= (arith) -sp_zcst0 && l < (arith) (sp_ncst0 - sp_zcst0)) {
@@ -130,76 +130,76 @@ put_cst(l)
 	}
 }
 
-put_doff(l, v)
+C_pt_doff(l, v)
 	label l;
 	arith v;
 {
 	if (v == 0) {
-		put_dlb(l);
+		C_pt_dlb(l);
 	}
 	else	{
 		put8(sp_doff);
-		put_dlb(l);
-		put_cst(v);
+		C_pt_dlb(l);
+		C_pt_cst(v);
 	}
 }
 
-put_noff(s, v)
+C_pt_noff(s, v)
 	char *s;
 	arith v;
 {
 	if (v == 0) {
-		put_dnam(s);
+		C_pt_dnam(s);
 	}
 	else	{
 		put8(sp_doff);
-		put_dnam(s);
-		put_cst(v);
+		C_pt_dnam(s);
+		C_pt_cst(v);
 	}
 }
 
-put_dnam(s)
+C_pt_dnam(s)
 	char *s;
 {
 	put8(sp_dnam);
-	put_str(s);
+	C_pt_str(s);
 }
 
-put_pnam(s)
+C_pt_pnam(s)
 	char *s;
 {
 	put8(sp_pnam);
-	put_str(s);
+	C_pt_str(s);
 }
 
-put_wcon(sp, v, sz)	/* sp_icon, sp_ucon or sp_fcon with int repr	*/
+C_pt_wcon(sp, v, sz)	/* sp_icon, sp_ucon or sp_fcon with int repr	*/
 	int sp;
 	char *v;
 	arith sz;
 {
 	/* how 'bout signextension int --> long ???	*/
 	put8(sp);
-	put_cst(sz);
-	put_str(v);
+	C_pt_cst(sz);
+	C_pt_str(v);
 }
 
-put_str(s)
+C_pt_str(s)
 	register char *s;
 {
 	register int len;
 
-	put_cst((arith) (len = strlen(s)));
+	C_pt_cst((arith) (len = strlen(s)));
 	while (--len >= 0) {
 		put8(*s++);
 	}
 }
 
-put_scon(b, n)
+C_pt_scon(b, n)
 	register char *b;
 	register arith n;
 {
 	put8(sp_scon);
-	put_cst(n);
+	C_pt_cst(n);
 	while (--n >= 0) {
 		put8(*b++);
 	}
diff --git a/modules/src/em_code/k/em_private.h b/modules/src/em_code/k/em_private.h
index 3701206db..fdbb2e8d8 100644
--- a/modules/src/em_code/k/em_private.h
+++ b/modules/src/em_code/k/em_private.h
@@ -16,27 +16,27 @@
 #include	<em_reg.h>
 
 /* macros used in the definitions of the interface functions C_* */
-#define	OP(x)		put_op(x)
-#define	CST(x)		put_cst(x)
-#define	DCST(x)		put_cst(x)
-#define	SCON(x,y)	put_scon((x), (y))
-#define	PS(x)		put_ps(x)
-#define	DLB(x)		put_dlb(x)
-#define DFDLB(x)	put_dlb(x)
-#define	ILB(x)		put_ilb(x)
-#define	DFILB(x)	put_ilb(x)
-#define	NOFF(x,y)	put_noff((x), (y))
-#define	DOFF(x,y)	put_doff((x), (y))
-#define	PNAM(x)		put_pnam(x)
-#define	DNAM(x)		put_dnam(x)
-#define	DFDNAM(x)	put_dnam(x)
-#define	CEND()		put_cend()
-#define CCEND()		put_cend()
-#define	WCON(x,y,z)	put_wcon((x), (y), (z))
+#define	OP(x)		C_pt_op(x)
+#define	CST(x)		C_pt_cst(x)
+#define	DCST(x)		C_pt_cst(x)
+#define	SCON(x,y)	C_pt_scon((x), (y))
+#define	PS(x)		C_pt_ps(x)
+#define	DLB(x)		C_pt_dlb(x)
+#define DFDLB(x)	C_pt_dlb(x)
+#define	ILB(x)		C_pt_ilb(x)
+#define	DFILB(x)	C_pt_ilb(x)
+#define	NOFF(x,y)	C_pt_noff((x), (y))
+#define	DOFF(x,y)	C_pt_doff((x), (y))
+#define	PNAM(x)		C_pt_pnam(x)
+#define	DNAM(x)		C_pt_dnam(x)
+#define	DFDNAM(x)	C_pt_dnam(x)
+#define	CEND()		C_pt_cend()
+#define CCEND()		C_pt_cend()
+#define	WCON(x,y,z)	C_pt_wcon((x), (y), (z))
 #define COMMA()
 #define NL()
 #define CILB(x)		CST((arith) x)
 
-#define	put_cend()	C_putbyte(sp_cend)
-#define	put_op(x)	C_putbyte(x)
-#define	put_ps(x)	C_putbyte(x)
+#define	C_pt_cend()	C_putbyte(sp_cend)
+#define	C_pt_op(x)	C_putbyte(x)
+#define	C_pt_ps(x)	C_putbyte(x)