diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index e070eb6..e818c34 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -990,7 +990,7 @@ let anon_fun s =
         Not_found ->
           match args.inputs with
           | [] ->
-              Pdfe.log (Printf.sprintf "Warning: range '%s' ignored\n" s)
+              Pdfe.log (Printf.sprintf "Warning: '%s' ignored\n" s)
           | (a, _, d, e, f, g)::t ->
                args.inputs <- (a, fixdashes s, d, e, f, g)::t
 
diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 9ece3fc..4e52c03 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -186,7 +186,7 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
       | CYMK (c, y, m, k) -> [Op_K (c, y, m, k)]
       | NoCol -> []
       end
-  | ClosePath
+  | ClosePath -> [Pdfops.Op_h]
   | Fill -> [Pdfops.Op_f]
   | FillEvenOdd -> [Pdfops.Op_f']
   | Stroke -> [Pdfops.Op_S]
@@ -194,7 +194,7 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
   | FillStrokeEvenOdd -> [Pdfops.Op_B']
   | Clip -> [Pdfops.Op_W; Pdfops.Op_n]
   | ClipEvenOdd -> [Pdfops.Op_W']
-  | SetLineThickness t -> [Pdfops.Op_w t; Pdfops.Op_n]
+  | SetLineThickness t -> [Pdfops.Op_w t]
   | SetLineCap c -> [Pdfops.Op_J c]
   | SetLineJoin j -> [Pdfops.Op_j j]
   | SetMiterLimit m -> [Pdfops.Op_M m]