diff --git a/ChangeLog b/ChangeLog
index e8ac48823555c0..1c15034c8b5f03 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Thu Aug 23 15:51:19 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* parse.y (f_norm_arg): ripper has no shadowing check.
+
+	* parse.y (f_block_arg): dispatch blkarg_mark.
+
 Thu Aug 23 15:48:26 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* compile.c (make_masgn_lhs, iseq_compile_each): fixed indent.
diff --git a/parse.y b/parse.y
index 857c411d1feeab..64532067cd80eb 100644
--- a/parse.y
+++ b/parse.y
@@ -4154,7 +4154,10 @@ f_norm_arg	: tCONSTANT
 		    }
 		| tIDENTIFIER
 		    {
+		    /*%%%*/
 			shadowing_lvar($1);
+		    /*%
+		    %*/
 			$$ = $1;
 		    }
 		;
@@ -4288,7 +4291,7 @@ f_block_arg	: blkarg_mark tIDENTIFIER
 			arg_var($2);
 			$$ = $2;
 		    /*%
-			$$ = $2;
+			$$ = dispatch1(blockarg, $2);
 		    %*/
 		    }
 		;