diff -ru findlib/metascanner.ml findlib.new/metascanner.ml
--- findlib/metascanner.ml	Sun Jun 20 14:26:26 1999
+++ findlib.new/metascanner.ml	Sun Mar 12 03:22:29 2000
@@ -43,10 +43,10 @@
     match stream with parser
       [< '(line, col, Name n); 
          props = parse_properties
-	  ? ("Error in 'name = value' clause  in line " ^ 
+	  ?? ("Error in 'name = value' clause  in line " ^ 
 	     string_of_int line ^ " position " ^ string_of_int col);
 	 rest = parse_all 
-	  ? ("Error in 'name = value' clause  in line " ^ 
+	  ?? ("Error in 'name = value' clause  in line " ^ 
 	     string_of_int line ^ " position " ^ string_of_int col)
        >]
 	-> let args, value = props in
@@ -62,19 +62,19 @@
     match stream with parser
       [< '(line,col,LParen); 
 	 '(line1,col1,Name n)
-	  ? ("After a '(' there must be an argument name in line " ^
+	  ?? ("After a '(' there must be an argument name in line " ^
 	    string_of_int line ^ " position " ^ string_of_int col);
 	 args = parse_arguments; 
 	 '(line2,col2,Equal)
-	  ? ("'=' expected after '(arguments)' clause in line " ^
+	  ?? ("'=' expected after '(arguments)' clause in line " ^
 	    string_of_int line ^ " position " ^ string_of_int col);
          '(line3,col3,String s) 
-	 ? ("Expected string constant after '=' in line " ^
+	 ?? ("Expected string constant after '=' in line " ^
 	    string_of_int line2 ^ " position " ^ string_of_int col2)
       >]
 	-> n::args, s
     | [< '(line,col,Equal); '(_,_,String s) 
-	 ? ("'=' must be followed by a string constant in line " ^
+	 ?? ("'=' must be followed by a string constant in line " ^
 	    string_of_int line ^ " position " ^ string_of_int col)
       >]
 	-> [], s
@@ -87,7 +87,7 @@
     match stream with parser
       [< '(line,col,Comma); 
 	 '(line1,col1,Name n)
-	 ? ("Expected argument name after ',' in line " ^
+	 ?? ("Expected argument name after ',' in line " ^
 	    string_of_int line ^ " position " ^ string_of_int col);
 	 args = parse_arguments 
       >]
diff -ru findlib/topfind.ml findlib.new/topfind.ml
--- findlib/topfind.ml	Sat Jul 10 14:51:27 1999
+++ findlib.new/topfind.ml	Sun Mar 12 03:30:40 2000
@@ -42,7 +42,8 @@
 	  List.iter
 	    (fun a ->
 	      (* prerr_endline ("Loading " ^ (Filename.concat d a)); *)
-	      Topdirs.dir_load 
+	      Topdirs.dir_load
+		  (Format.formatter_of_out_channel stdout)
 		(Filename.concat d a))
 	    archives;
 	  (* The package is loaded: *)