diff --git a/c/zos.c b/c/zos.c
index dbff8b321..9a7969012 100644
--- a/c/zos.c
+++ b/c/zos.c
@@ -1480,7 +1480,7 @@ typedef struct WTO2Common31_tag{
   char mcsFlags2;
 } WTO2Common31;
 
-void message(char *message){
+void message2(char *message){
 
   ALLOC_STRUCT31(
     STRUCT31_NAME(below2G),
@@ -1509,7 +1509,7 @@ void message(char *message){
 }
 
 #define WTO_MAX_SIZE 126
-void wtoPrintf(char *formatString, ...){
+void wtoPrintfMetal(char *formatString, ...){
   char text[WTO_MAX_SIZE+1];       /* Allow for trailing null character */
   va_list argPointer;
   int cnt;
@@ -1546,7 +1546,7 @@ void wtoPrintf(char *formatString, ...){
   if (cnt>0 && text[cnt-1] == '\n')   /* If text ends with \n */
     text[cnt-1] = 0;                  /* Change it into a null character */
 
-  message(text);
+  message2(text);
 }
 
 /* end WTO SECTION */
diff --git a/h/zos.h b/h/zos.h
index b8b03a331..b43ef145e 100644
--- a/h/zos.h
+++ b/h/zos.h
@@ -1529,6 +1529,10 @@ DSAB *getDSAB(char *ddname);
 
 int dsabIsOMVS(DSAB *dsab);
 
+void message2(char *message);
+
+void wtoPrintfMetal(char *formatString, ...);
+
 int locate(char *dsn, int *volserCount, char *firstVolser);
 
 /*