diff --git a/gcc/cobol/util.cc b/gcc/cobol/util.cc
index ccc5dd49a1b73286a76e99d1424d264324747e18..8b3eb53ea9e07ac19eb90d1b5939c8bc223f383e 100644
--- a/gcc/cobol/util.cc
+++ b/gcc/cobol/util.cc
@@ -1961,15 +1961,15 @@ class unique_stack : public std::stack<input_file_t>
     if( n > 1 || yydebug ) {
       char *wd = get_current_dir_name();
       if( wd ) {
-	warnx( "depth line copybook filename\n"
+	cbl_warnx( "depth line copybook filename\n"
 	       "        "
 	       "----- ---- --------"
 	       "----------------------------------------");
 	for( const auto& v : c ) {
-	  warnx( " %4zu %4d %s", c.size() - --n, v.lineno, no_wd(wd, v.name) );
+	  cbl_warnx( " %4zu %4d %s", c.size() - --n, v.lineno, no_wd(wd, v.name) );
 	}
       } else {
-	warnx("warning: %s:%d: %m", __func__, __LINE__);
+	cbl_warnx("warning: %s:%d: %m", __func__, __LINE__);
       }
     }
     return false;