diff --git a/lang/m2/comp/Version.c b/lang/m2/comp/Version.c
index bd0c5ed4c..12662b641 100644
--- a/lang/m2/comp/Version.c
+++ b/lang/m2/comp/Version.c
@@ -1 +1 @@
-static char Version[] = "ACK Modula-2 compiler Version 0.39";
+static char Version[] = "ACK Modula-2 compiler Version 0.40";
diff --git a/lang/m2/comp/expression.g b/lang/m2/comp/expression.g
index 02f7f1b2d..9f8bf0dba 100644
--- a/lang/m2/comp/expression.g
+++ b/lang/m2/comp/expression.g
@@ -250,7 +250,7 @@ element(register t_node *nd;) :
 		expression(&(nd->nd_right->nd_right))
 	|
 	]
-			{ nd->nd_right = dot2node(Link, nd, NULLNODE);
+			{ nd->nd_right = dot2node(Link, nd->nd_right, NULLNODE);
 			  nd->nd_right->nd_symb = ',';
 			}
 ;