diff -ur ../freepwing-1.5.org/src/BaseWord.pm ./src/BaseWord.pm
--- ../freepwing-1.5.org/src/BaseWord.pm	2008-06-07 13:04:50.000000000 +0900
+++ ./src/BaseWord.pm	2008-10-15 01:46:25.640625000 +0900
@@ -269,7 +269,7 @@
     # 単語エントリをファイルへ書き込む。
     #
     if (!$self->{'handle'}
-	->printf("%s\t%08x\t%s\t%08x\t%s\n", $fixed_word, $heading_position,
+	->printf("%s\t%010x\t%s\t%010x\t%s\n", $fixed_word, $heading_position,
 		 $heading_file_name, $text_position, $text_file_name)) {
 	$self->{'error_message'} =
 	    "failed to write the file, $ERRNO: " . $self->{'file_name'};
@@ -299,7 +299,7 @@
     if ($katakana_flag) {
 	$fixed_word = pack("C*", @unpacked_fixed_word);
 	if (!$self->{'handle'}
-	    ->printf("%s\t%08x\t%s\t%08x\t%s\n", $fixed_word,
+	    ->printf("%s\t%010x\t%s\t%010x\t%s\n", $fixed_word,
 		     $heading_position, $heading_file_name, $text_position,
 		     $text_file_name)) {
 	    $self->{'error_message'} =
diff -ur ../freepwing-1.5.org/src/Reference.pm ./src/Reference.pm
--- ../freepwing-1.5.org/src/Reference.pm	2008-06-07 13:04:50.000000000 +0900
+++ ./src/Reference.pm	2008-10-15 01:46:57.687500000 +0900
@@ -141,7 +141,7 @@
     my ($source_position, $target_position, $target_file_name)
 	= @ARG;
 
-    if (!$self->{'handle'}->printf("block\t%08x\t%08x\t%s\n",
+    if (!$self->{'handle'}->printf("block\t%010x\t%010x\t%s\n",
 				   $source_position, $target_position,
 				   $target_file_name)) {
 	$self->{'error_message'} = 
@@ -174,7 +174,7 @@
     my ($source_position, $target_position, $target_file_name)
 	= @ARG;
 
-    if (!$self->{'handle'}->printf("position\t%08x\t%08x\t%s\n",
+    if (!$self->{'handle'}->printf("position\t%010x\t%010x\t%s\n",
 				   $source_position, $target_position,
 				   $target_file_name)) {
 	$self->{'error_message'} = 
@@ -203,7 +203,7 @@
     my $self = shift;
     my ($source_position, $target_tag) = @ARG;
 
-    if (!$self->{'handle'}->printf("tag\t%08x\t%s\n", $source_position,
+    if (!$self->{'handle'}->printf("tag\t%010x\t%s\n", $source_position,
 				   $target_tag)) {
 	$self->{'error_message'} = 
 	    "failed to write the file, $ERRNO: " . $self->{'file_name'};
diff -ur ../freepwing-1.5.org/src/Sort.pm.in ./src/Sort.pm.in
--- ../freepwing-1.5.org/src/Sort.pm.in	2008-06-07 13:04:50.000000000 +0900
+++ ./src/Sort.pm.in	2008-10-15 01:47:08.062500000 +0900
@@ -260,7 +260,7 @@
 	$text_file_name) = @ARG;
 
     if (!$self->{'handle'}
-	->printf("%s\t%08x\t%s\t%08x\t%s\n", $word, $heading_position,
+	->printf("%s\t%010x\t%s\t%010x\t%s\n", $word, $heading_position,
 		 $heading_file_name, $text_position, $text_file_name)) {
 	$self->{'error_message'} =
 	    "failed to write the file, $ERRNO: " . $self->{'file_name'};
diff -ur ../freepwing-1.5.org/src/Tag.pm ./src/Tag.pm
--- ../freepwing-1.5.org/src/Tag.pm	2008-06-07 13:04:50.000000000 +0900
+++ ./src/Tag.pm	2008-10-15 01:47:18.218750000 +0900
@@ -144,7 +144,7 @@
 	$self->close_internal();
 	return 0;
     }
-    if (!$self->{'handle'}->printf("\%s\t%08x\n", $tag_name, $position)) {
+    if (!$self->{'handle'}->printf("\%s\t%010x\n", $tag_name, $position)) {
 	$self->{'error_message'} = 
 	    "failed to write the file, $ERRNO: " . $self->{'file_name'};
 	$self->close_internal();