diff --git a/ChangeLog b/ChangeLog
index b15e248bfb..4b8a48dab9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Jan 19 22:24:28 2004  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* sample/exyacc.rb: escape '}' to avoid warning.
+
 Mon Jan 19 21:28:06 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/digest/defs.h, win32/win3.c, win32/win32.h, file.c: remove
diff --git a/sample/exyacc.rb b/sample/exyacc.rb
index b8d49d630a..5818825e25 100644
--- a/sample/exyacc.rb
+++ b/sample/exyacc.rb
@@ -10,10 +10,10 @@ while gets()
   $_ = $_[sbeg, send-sbeg]
   sub!(/.*\n/, "")
   gsub!(/'\{'/, "'\001'")
-  gsub!(/'}'/, "'\002'")
+  gsub!(/'\}'/, "'\002'")
   gsub!(%r{\*/}, "\003\003")
   gsub!(%r{/\*[^\003]*\003\003}, '')
-  while gsub!(/\{[^{}]*}/, ''); end
+  while gsub!(/\{[^{}]*\}/, ''); end
   gsub!(/'\001'/, "'{'")
   gsub!(/'\002'/, "'}'")
   while gsub!(/^[ \t]*\n(\s)/, '\1'); end