From 2ea025fdb49e4bfeeb0f0d2f08fef5971a650742 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 6 Jul 1988 09:43:05 +0000
Subject: [PATCH] fixed previously introduced error

---
 lang/m2/comp/Version.c    | 2 +-
 lang/m2/comp/expression.g | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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 = ',';
 			}
 ;
-- 
2.34.1