From c5587f4a96a211d1db474ef1d266958f4f380465 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 27 Jun 2024 12:41:37 +0100
Subject: [PATCH] Clean up duplicate error

---
 cpdfua.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfua.ml b/cpdfua.ml
index 87e3c84..3f29627 100644
--- a/cpdfua.ml
+++ b/cpdfua.ml
@@ -417,7 +417,7 @@ let matterhorn_14_003 st st2 pdf =
   let rec check_nseq n = function
   | E (s, cs) when is_hnum s ->
       let num = int_of_string (implode (tl (tl (explode s)))) in
-        if num > n + 1 then merror_str (Printf.sprintf "%i -> %i" n num);
+        if num > n + 1 && n > 0 then merror_str (Printf.sprintf "%i -> %i" n num);
         iter (check_nseq num) cs
   | E (_, cs) -> iter (check_nseq n) cs
   in