diff --git a/ChangeLog b/ChangeLog
index 310b3a527f..d83d664581 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jan 31 09:20:32 2004  NAKAMURA, Hiroshi  <nakahiro@sairon.co.jp>
+
+	* sample/openssl/gen_csr.rb: wrong usage string.
+
 Sat Jan 31 01:00:32 2004  NAKAMURA, Hiroshi  <nakahiro@sarion.co.jp>
 
 	* lib/soap/wsdlDriver.rb, lib/wsdl/soap/operation.rb: add support of
diff --git a/sample/openssl/gen_csr.rb b/sample/openssl/gen_csr.rb
index 7c7f559995..5858acd9f2 100644
--- a/sample/openssl/gen_csr.rb
+++ b/sample/openssl/gen_csr.rb
@@ -8,7 +8,7 @@ include OpenSSL
 def usage
   myname = File::basename($0)
   $stderr.puts <<EOS
-Usage: #{myname} name [keypair_file]
+Usage: #{myname} [--key keypair_file] name
   name ... ex. /C=JP/O=RRR/OU=CA/CN=NaHi/emailAddress=nahi@example.org
 EOS
   exit
@@ -21,6 +21,7 @@ keyout = $OPT_keyout || "keypair.pem"
 
 $stdout.sync = true
 name_str = ARGV.shift or usage()
+p name_str
 name = X509::Name.parse(name_str)
 
 keypair = nil