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 = "."