diff --git a/pkgs/contract-profile/main.rkt b/pkgs/contract-profile/main.rkt
index 5d1fc995ed..238d6b591c 100644
--- a/pkgs/contract-profile/main.rkt
+++ b/pkgs/contract-profile/main.rkt
@@ -200,6 +200,7 @@
   (with-output-to-report-file
    module-graph-dot-file
    (printf "digraph {\n")
+   (printf "rankdir=LR\n")
    (define nodes->names (for/hash ([n nodes]) (values n (gensym))))
    (define node->labels (make-shortener nodes))
    (for ([n nodes])