diff --git a/ChangeLog b/ChangeLog
index 598a2e47..6e348ce0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-13  Florian Krohm  <florian@edamail.fishkill.ibm.com>
+
+	* src/reader.c (parse_action): Use copy_character instead of
+	obstack_1grow.
+
 2002-05-13  Akim Demaille  <akim@epita.fr>
 
 	* tests/regression.at (Token definitions): Prototype yylex and
diff --git a/src/reader.c b/src/reader.c
index 1aa767fa..93df69a6 100644
--- a/src/reader.c
+++ b/src/reader.c
@@ -1286,12 +1286,12 @@ parse_action (symbol_list *rule, int rule_length)
 	switch (c)
 	  {
 	  case '\n':
-	    obstack_1grow (&action_obstack, c);
+	    copy_character (&action_obstack, c);
 	    ++lineno;
 	    break;
 
 	  case '{':
-	    obstack_1grow (&action_obstack, c);
+	    copy_character (&action_obstack, c);
 	    ++count;
 	    break;
 
@@ -1316,12 +1316,12 @@ parse_action (symbol_list *rule, int rule_length)
 	    fatal (_("unmatched %s"), "`{'");
 
 	  default:
-	    obstack_1grow (&action_obstack, c);
+	    copy_character (&action_obstack, c);
 	  }
 
       /* Above loop exits when C is '}'.  */
       if (--count)
-	obstack_1grow (&action_obstack, c);
+	copy_character (&action_obstack, c);
     }
 
   obstack_1grow (&action_obstack, '\0');