diff --git a/ChangeLog b/ChangeLog
index e801e06f..3d44d899 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-14  Akim Demaille  <akim@epita.fr>
+
+	* data/glr.c (yy_reduce_print): Fix the $ number.
+
 2005-11-14  Akim Demaille  <akim@epita.fr>
 
 	"Use" parse parameters.
diff --git a/data/glr.c b/data/glr.c
index 626af41d..f11eccdc 100644
--- a/data/glr.c
+++ b/data/glr.c
@@ -1386,7 +1386,7 @@ yy_reduce_print (yyGLRStack* yystack, size_t yyk, yyRuleNum yyrule,
   //for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
   for (yyi = 0; yyi < yynrhs; yyi++)
     {
-      fprintf (stderr, "   $%d = ", yyi);
+      fprintf (stderr, "   $%d = ", yyi + 1);
       yysymprint (stderr, yyrhs[yyprhs[yyrule] + yyi],
                   &]b4_rhs_value(yynrhs, yyi)[
                   ]b4_location_if([, &]b4_rhs_location(yynrhs, yyi))[]dnl