  
 Index: toplevel/opttoploop.ml
 ===================================================================
---- toplevel/opttoploop.ml	(revision 13953)
+--- toplevel/opttoploop.ml	(revision 13955)
 +++ toplevel/opttoploop.ml	(working copy)
 @@ -53,6 +53,7 @@
     | Directive_string of (string -> unit)

             fprintf ppf "Wrong type of argument for directive `%s'.@." dir_name;
Index: toplevel/topdirs.mli
===================================================================
--- toplevel/topdirs.mli	(revision 13953)
+++ toplevel/topdirs.mli	(working copy)
@@ -20,11 +20,12 @@
 val dir_cd : string -> unit

   | Pdir_bool of bool
Index: parsing/printast.ml
===================================================================
--- parsing/printast.ml	(revision 13955)
+++ parsing/printast.ml	(working copy)
@@ -737,6 +737,16 @@
       core_type (i+1) ppf ct
