From 7653d3664278ddae6fccf61342b623c41665de22 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
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 bd0c5ed4..12662b64 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 02f7f1b2..9f8bf0db 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 = ',';
 			}
 ;