diff -r a6e651ba55c2 -r 1988bf1634da stage1_2/iec.flex
--- a/stage1_2/iec.flex	Wed Nov 14 08:54:25 2007 +0100
+++ b/stage1_2/iec.flex	Wed Nov 14 18:59:47 2007 +0100
@@ -371,6 +371,8 @@
 /* we are parsing sfc code, and expecting an action qualifier.      */
 %s sfc_qualifier_state
 
+/* we are parsing sfc code, and expecting the priority token.       */
+%s sfc_priority_state
 
 
 
@@ -693,6 +695,11 @@
 	  rst_goto_sfc_qualifier_state();
 	}
 
+	if (get_goto_sfc_priority_state()) {
+	  yy_push_state(sfc_priority_state);
+	  rst_goto_sfc_priority_state();
+	}
+
 	if (get_goto_task_init_state()) {
 	  yy_push_state(task_init_state);
 	  rst_goto_task_init_state();
@@ -1181,7 +1188,7 @@
 	 * it is explicitly required and we are not expecting any identifiers
 	 * that could also use the same letter sequence (i.e. an identifier: piority)
 	 */
-<sfc_state>PRIORITY	return PRIORITY;
+<sfc_priority_state>PRIORITY	return PRIORITY;
 
 <sfc_qualifier_state>{
 L		return L;