diff --git a/ja/ports/portindex b/ja/ports/portindex
index 2ba78e6d7c..8b2a3d38de 100755
--- a/ja/ports/portindex
+++ b/ja/ports/portindex
@@ -4,9 +4,9 @@
 #
 # by John Fieber <jfieber@freebsd.org>
 # Mon May 13 10:31:58 EST 1996
-# $FreeBSD: www/ja/ports/portindex,v 1.23 2001/01/02 02:22:50 kuriyama Exp $
+# $FreeBSD: www/ja/ports/portindex,v 1.24 2001/05/21 14:47:09 kuriyama Exp $
 # The FreeBSD Japanese Documentation Project
-# Original revision: 1.40
+# Original revision: 1.41
 
 ############################################################
 
@@ -21,7 +21,7 @@ do $config if -f $config;
 if ($ENV{'MASTER_FTP_SERVER'}) {
     $ftpserver = $ENV{'MASTER_FTP_SERVER'};
 } else {
-    $ftpserver = 'ftp://ftp5.freebsd.org' if !$ftpserver;
+    $ftpserver = 'ftp://ftp.freebsd.org' if !$ftpserver;
 }
 $base = "" if !$base;
 $baseHTTP = $base if !$baseHTTP;
@@ -31,7 +31,7 @@ $packagesURL = "$ftpserver/pub/FreeBSD/ports/i386/packages-stable/All/"
     if !$packagesURL;
 # support tar on the fly or gzip'ed tar on the fly
 $ftparchive = '';
-$ftparchive = 'tar' if !defined $ftparchive;
+$ftparchive = '.tar' if !defined $ftparchive;
 
 # ports download sources script
 $pds = 'http://www.freebsd.org/cgi/pds.cgi';
@@ -170,7 +170,7 @@ sub main {
 	    $ldesc =~ s/\/usr\//$baseHTTP/;
 
     	    # The name description and maintainer
-	    $data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"$loc.$ftparchive\">$name</A></B> ";
+	    $data{$i} .= "<DT><B><A NAME=\"$name\"></A><A HREF=\"${loc}${ftparchive}\">$name</A></B> ";
 
 	    $data{$i} .= "<DD>$desc<BR><A HREF=\"$ldesc\">�ܤ�������</A>";
 	    if ($packages{"$name.tgz"}) {