diff --git a/src/oberon.c b/src/oberon.c
index 5a93489b35ed197ee2ac10b262a95c042583d146..349015dc163318316d7ccbc8c40e964b9c78839f 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -1453,7 +1453,7 @@ oberon_make_record_selector(oberon_context_t * ctx, oberon_expr_t * expr, char *
}
}
- int read_only = 0;
+ int read_only = expr -> read_only;
if(field -> read_only)
{
if(field -> module != ctx -> mod)