diff --git a/ChangeLog b/ChangeLog
index 65657a35f8..7fa239afa2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jul 13 09:30:04 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* parse.y (literal_concat_string): wrong optimization.
+
 Sat Jul 13 01:25:38 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* lib/resolv.rb (Resolv::DNS::open, close): new.
diff --git a/parse.y b/parse.y
index ef5db61dfb..d0dac69d92 100644
--- a/parse.y
+++ b/parse.y
@@ -4367,8 +4367,7 @@ literal_concat_string(head, tail, str)
 		head->nd_alen += 1;
 	    }
 	    if (!tail) tail = NEW_STR(str);
-	    last1->nd_next = NEW_LIST(tail);
-	    head->nd_alen += 1;
+	    list_append(head, tail);
 	    return head;
 	}
     }