diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index d3712dd..5253783 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -272,7 +272,7 @@ let format_paragraph indent j w s =
   let space_runs, space_width = runs_of_utf8 " " in
   let remaining = ref w in
   let allops = ref [] in
-  let ops = ref [] in
+  let ops = ref [Pdfops.Op_Comment "Format paragraph"] in
   let first = ref true in
   let firstloop = ref true in
   let justify ops =