From 1efdca2abe0dc362321a33d3aac84ac8934003bd Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 12 May 2023 19:36:53 +0100
Subject: [PATCH] more

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

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 9f91146..3321d42 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -198,7 +198,7 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
   | FillStroke -> [Pdfops.Op_B]
   | FillStrokeEvenOdd -> [Pdfops.Op_B']
   | Clip -> [Pdfops.Op_W; Pdfops.Op_n]
-  | ClipEvenOdd -> [Pdfops.Op_W']
+  | ClipEvenOdd -> [Pdfops.Op_W'; Pdfops.Op_n]
   | SetLineThickness t -> [Pdfops.Op_w t]
   | SetLineCap c -> [Pdfops.Op_J c]
   | SetLineJoin j -> [Pdfops.Op_j j]