diff --git a/ChangeLog b/ChangeLog
index 8a0ca19505..f82e5db26c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Feb  4 22:44:58 2002  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* file.c (rb_file_s_expand_path): should terminate.
+
 Mon Feb  4 15:38:29 2002  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* object.c (rb_class_real): should not follow ICLASS link
diff --git a/file.c b/file.c
index b358c526b4..96ecb7edf3 100644
--- a/file.c
+++ b/file.c
@@ -1554,6 +1554,7 @@ rb_file_s_expand_path(argc, argv)
 #endif
 
     if (tainted) OBJ_TAINT(result);
+    *p = '\0';
     RSTRING(result)->len = p - buf;
     return result;
 }