diff --git a/ChangeLog b/ChangeLog
index bb4037304b..d0e942273d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat May 21 22:46:26 2011  Tadayoshi Funaba  <tadf@dotrb.org>
+
+	* ext/date/date_strftime(date_strftime_with_tmx): "%v" means "%e-%b-%Y".
+
 Sat May 21 22:14:35 2011  KOSAKI Motohiro  <kosaki.motohiro@gmail.com>
 
 	* io.c (rb_io_extract_modeenc): accept combination hash and
diff --git a/ext/date/date_strftime.c b/ext/date/date_strftime.c
index 3596b52235..0820a26d9b 100644
--- a/ext/date/date_strftime.c
+++ b/ext/date/date_strftime.c
@@ -604,7 +604,7 @@ date_strftime_with_tmx(char *s, size_t maxsize, const char *format,
 
 #ifdef VMS_EXT
 		case 'v':	/* date as dd-bbb-YYYY */
-			STRFTIME("%e-%^b-%4Y");
+			STRFTIME("%e-%b-%Y");
 			continue;
 #endif
 
diff --git a/test/date/test_date_strftime.rb b/test/date/test_date_strftime.rb
index c56ad6fe5a..72e164c3e5 100644
--- a/test/date/test_date_strftime.rb
+++ b/test/date/test_date_strftime.rb
@@ -47,7 +47,7 @@ class TestDateStrftime < Test::Unit::TestCase
     '%t'=>["\t",{}],
     '%u'=>['6',{:cwday=>6}],
     '%V'=>['05',{:cweek=>5}],
-    '%v'=>[' 3-FEB-2001',{:mday=>3,:mon=>2,:year=>2001}],
+    '%v'=>[' 3-Feb-2001',{:mday=>3,:mon=>2,:year=>2001}],
     '%z'=>['+0000',{:zone=>'+0000',:offset=>0}],
     '%+'=>['Sat Feb  3 00:00:00 +00:00 2001',
       {:wday=>6,:mon=>2,:mday=>3,