diff --git a/newlib/doc/doc.str b/newlib/doc/doc.str
index 949c6e794..b0bfc9ea4 100644
--- a/newlib/doc/doc.str
+++ b/newlib/doc/doc.str
@@ -62,25 +62,12 @@
 	indent
 	catstr
 	"@end example\n" catstr
-
-	;
-
-: OLDTRAD_SYNOPSIS
-	skip_past_newline
-	"@strong{Traditional Synopsis}\n" catstr
-	"@example\n" catstr
-	get_stuff_in_command  
-	do_fancy_stuff
-	nokill_bogus_lines
-	indent
-	catstr
-	"@end example\n" catstr
-
+	"ANSI_SYNOPSIS is deprecated, use SYNOPSIS instead" warn
 	;
 
 : TRAD_SYNOPSIS
 	skip_past_newline
-
+	"TRAD_SYNOPSIS is obsolete and ignored" warn
 	;
 
 : INDEX 
diff --git a/newlib/doc/makedoc.c b/newlib/doc/makedoc.c
index 45ddfb81e..3f4ff4c06 100644
--- a/newlib/doc/makedoc.c
+++ b/newlib/doc/makedoc.c
@@ -1019,6 +1019,17 @@ WORD(maybecatstr)
     
 }
 
+/* write tos to stderr */
+WORD(warn)
+{
+    fputs("Warning: ", stderr);
+    fwrite(tos->ptr, tos->write_idx, 1, stderr);
+    fputc('\n', stderr);
+    delete_string(tos);
+    tos--;
+    pc++;
+}
+
 char *
 DEFUN(nextword,(string, word),
       char *string AND
@@ -1390,7 +1401,8 @@ char *av[])
     add_intrinsic("kill_bogus_lines", kill_bogus_lines);
     add_intrinsic("indent", indent);
     add_intrinsic("internalmode", internalmode);
-    
+    add_intrinsic("warn", warn);
+
     /* Put a nl at the start */
     catchar(&buffer,'\n');