diff --git a/lang/m2/comp/statement.g b/lang/m2/comp/statement.g
index fcfb3ce3c..600b126fa 100644
--- a/lang/m2/comp/statement.g
+++ b/lang/m2/comp/statement.g
@@ -41,6 +41,7 @@ statement(register struct node **pnd;)
 					Roption = options['R'];
 					nd = dot2leaf(Option);
 					nd->nd_symb = 'R';
+					nd->nd_INT = Roption;
 					*pnd = nd =
 					    dot2node(Link, nd, NULLNODE);
 					nd->nd_symb = ';';
diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index 2480f3ba8..66e4fc7f3 100644
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -630,10 +630,10 @@ STATIC
 WalkOption(nd)
 	struct node *nd;
 {
-	/* Toggle option indicated by node "nd"
+	/* Set option indicated by node "nd"
 	*/
 
-	options[nd->nd_symb] = ! options[nd->nd_symb];
+	options[nd->nd_symb] = nd->nd_INT;
 }
 
 int (*WalkTable[])() = {