diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index 59d7287e515..3bc0dccdfe2 100644
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,8 @@
+Thu Sep 10 17:52:36 1998  Dave Brolley  <brolley@cygnus.com>
+
+	* actions.c (chill_convert_for_assignment): Make a copy of the result
+	node before modifying it.
+
 Sat Sep  5 16:55:37 1998  John Carr  <jfc@mit.edu>
 
 	* Make-lang.in: Comment ^L characters.  Sun make doesn't like them.
diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c
index 79bacf04c4f..5937f85ec4a 100644
--- a/gcc/ch/actions.c
+++ b/gcc/ch/actions.c
@@ -589,6 +589,7 @@ chill_convert_for_assignment (type, expr, place)
 		}
 	    }
 	}
+      result = copy_node (result);
       TREE_OPERAND (result, 1) = nreverse (new_list);
       TREE_TYPE (result) = build_bitstring_type (TYPE_SIZE (type));
     }