diff --git a/vfs/ChangeLog b/vfs/ChangeLog
index aeb99189d..c524d00ad 100644
--- a/vfs/ChangeLog
+++ b/vfs/ChangeLog
@@ -1,3 +1,8 @@
+1999-01-21  Federico Mena Quintero  <federico@nuclecu.unam.mx>
+
+	* utilvfs.c (append_path_sep): Fixed, it was broken for paths
+	which already have a / at the end.
+
 Fri Jan 22 01:41:25 1999  Timur I. Bakeyev <mc@bat.ru>
 
 	* undelfs.c: Found one more unconverted realloc() call.
diff --git a/vfs/utilvfs.c b/vfs/utilvfs.c
index 7a2ee2e88..14cae05f9 100644
--- a/vfs/utilvfs.c
+++ b/vfs/utilvfs.c
@@ -157,10 +157,10 @@ done:
 char*
 append_path_sep (char *path)
 {
-    int i = strlen(path) - 1;
+    int i = strlen (path);
 
-    if(path[i] == PATH_SEP)
-	return g_strndup(path, i);
+    if (path[i - 1] == PATH_SEP)
+	return g_strndup (path, i);
     else
 	return copy_strings (path, PATH_SEP_STR, NULL);
 }