diff --git a/lib/master.pike b/lib/master.pike
index ee1d30dd9199f62adaed305e4f1285162134ca59..86bd0315866df57e584a3dbb55c59a2b5882e532 100644
--- a/lib/master.pike
+++ b/lib/master.pike
@@ -1,4 +1,4 @@
-/* $Id: master.pike,v 1.65 1998/01/28 01:52:39 hubbe Exp $
+/* $Id: master.pike,v 1.66 1998/03/22 01:44:37 per Exp $
  *
  * Master-file for Pike.
  */
@@ -294,8 +294,17 @@ object new(mixed prog, mixed ... args)
 
 /* Note that create is called before add_precompiled_program
  */
+void my_werror(mixed ... args)
+{
+  if(sizeof(args) == 1) 
+    werror(@args);
+  else 
+    werror(sprintf(@args));
+}
+
 void create()
 {
+  add_constant("werror", my_werror);
   add_constant("basename",basename);
   add_constant("dirname",dirname);
   add_constant("is_absolute_path",is_absolute_path);