diff -urN ocaml-old/stdlib/filename.ml ocaml/stdlib/filename.ml
--- ocaml-old/stdlib/filename.ml	Sun Apr 14 21:16:33 2002
+++ ocaml/stdlib/filename.ml	Sun Apr 14 21:27:59 2002
@@ -16,14 +16,14 @@
 let generic_quote quotequote s =
   let l = String.length s in
   let b = Buffer.create (l + 20) in
-  Buffer.add_char b '\'';
+(*  Buffer.add_char b '\''; *)
   for i = 0 to l - 1 do
     if s.[i] = '\''
     then Buffer.add_string b quotequote
     else Buffer.add_char b  s.[i]
   done;
-  Buffer.add_char b '\'';
-  Buffer.contents b
+(*  Buffer.add_char b '\''; *)
+  Buffer.contents b 
 
 module Unix = struct
   let current_dir_name = "."