diff --git a/ChangeLog b/ChangeLog
index 54f6439a..e09d3c97 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-07  Tatsuhiro Tsujikawa  <t-tujikawa@users.sourceforge.net>
+
+	Use GET method for FTP via HTTP proxy.
+	* src/FtpInitiateConnectionCommand.cc
+	
 2009-02-07  Tatsuhiro Tsujikawa  <t-tujikawa@users.sourceforge.net>
 
 	Changed the default value of --proxy-method option from 'tunnel'
diff --git a/src/FtpInitiateConnectionCommand.cc b/src/FtpInitiateConnectionCommand.cc
index f4b2b005..6bf05a3f 100644
--- a/src/FtpInitiateConnectionCommand.cc
+++ b/src/FtpInitiateConnectionCommand.cc
@@ -80,6 +80,8 @@ Command* FtpInitiateConnectionCommand::createNextCommand
 				  proxyRequest->getPort());
       
       if(proxyMethod == V_GET) {
+	// Use GET for FTP via HTTP proxy.
+	req->setMethod(Request::METHOD_GET);
 	SharedHandle<HttpConnection> hc
 	  (new HttpConnection(cuid, socket, e->option));
 	
@@ -101,6 +103,8 @@ Command* FtpInitiateConnectionCommand::createNextCommand
 				    FtpNegotiationCommand::SEQ_SEND_CWD,
 				    options["baseWorkingDir"]);
       } else if(proxyMethod == V_GET) {
+	// Use GET for FTP via HTTP proxy.
+	req->setMethod(Request::METHOD_GET);
 	SharedHandle<HttpConnection> hc
 	  (new HttpConnection(cuid, pooledSocket, e->option));