diff --git a/src/lib/uTop.cppo.ml b/src/lib/uTop.cppo.ml
index 0de2745..ef5c710 100644
--- a/src/lib/uTop.cppo.ml
+++ b/src/lib/uTop.cppo.ml
@@ -618,6 +618,11 @@ For a complete description of utop, look at the utop(1) manual page."));
             macro;
           flush stdout))
 
+let () =
+  Hashtbl.add Toploop.directive_table "pwd"
+    (Toploop.Directive_none
+       (fun () -> print_endline (Sys.getcwd ())))
+
 (* +-----------------------------------------------------------------+
    | Camlp4                                                          |
    +-----------------------------------------------------------------+ *)