diff --git a/script/code.ml b/script/code.ml
index 6a4499d6c..e9d9d9f25 100644
--- a/script/code.ml
+++ b/script/code.ml
@@ -139,7 +139,7 @@ let highlight_ocaml =
                            phrase subst in
     (* Wrap the code in a <pre> block so no Omd.Paragraph are generated, etc. *)
     match Omd.of_string ("<pre>" ^ p ^ "</pre>") with
-    | [Omd.Html_block(_,_,o)] -> o
+    | Omd.[{ bl_desc = Html_block o; _ }] -> o
     | _ -> assert false
   )