diff --git a/parse.y b/parse.y
index b55337336..b2c674691 100644
--- a/parse.y
+++ b/parse.y
@@ -5782,7 +5782,7 @@ specify_item
 		  pform_module_specify_path(tmp);
 		}
 	| K_ifnone specify_edge_path_decl ';'
-		{ yyerror(@1, "Sorry: ifnone with an edge-sensitive path is "
+		{ yywarn(@1, "Sorry: ifnone with an edge-sensitive path is "
 		              "not supported.");
 		  yyerrok;
 		}
diff --git a/parse_misc.cc b/parse_misc.cc
index 2de0dfee1..5ecffdea1 100644
--- a/parse_misc.cc
+++ b/parse_misc.cc
@@ -39,6 +39,11 @@ std::ostream& operator << (std::ostream&o, const YYLTYPE&loc)
       return o;
 }
 
+void VLwarn(const char*msg)
+{
+      warn_count += 1;
+      cerr << yylloc.text << ":" << yylloc.first_line << ": " << msg << endl;
+}
 
 void VLerror(const char*msg)
 {
diff --git a/parse_misc.h b/parse_misc.h
index d02902013..05c35fb01 100644
--- a/parse_misc.h
+++ b/parse_misc.h
@@ -59,6 +59,7 @@ extern int  VLlex();
 extern void VLerror(const char*msg);
 extern void VLerror(const YYLTYPE&loc, const char*msg, ...) __attribute__((format(printf,2,3)));
 #define yywarn VLwarn
+extern void VLwarn(const char*msg);
 extern void VLwarn(const YYLTYPE&loc, const char*msg);
 
 extern void destroy_lexor();
diff --git a/pform.cc b/pform.cc
index d93d48659..2467044e6 100644
--- a/pform.cc
+++ b/pform.cc
@@ -1847,7 +1847,7 @@ void pform_make_udp(perm_string name, list<perm_string>*parms,
 
 	// Put the primitive into the primitives table
       if (pform_primitives[name]) {
-	    VLerror("UDP primitive already exists.");
+	    VLwarn("UDP primitive already exists.");
 
       } else {
 	    PUdp*udp = new PUdp(name, parms->size());