diff --git a/ChangeLog b/ChangeLog
index 736d8c6b6..f263ebedd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-19  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Tools/AGSParser.m: Fix bug handling repeated opeing braces.
+
 2002-12-17  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Tools/AGSIndex.m: Fix error indexing vararg methods.
diff --git a/Tools/AGSParser.m b/Tools/AGSParser.m
index 905926d03..dee00c575 100644
--- a/Tools/AGSParser.m
+++ b/Tools/AGSParser.m
@@ -3443,6 +3443,7 @@ fail:
 	    break;
 
 	  case '{':
+	    pos--;
 	    [self skipBlock];
 	    return pos;