Import Upstream version 3a4upstream/3a4

1 files changed, 2 insertions, 1 deletions

diff --git a/pnm.scm b/pnm.scm
index 2bfa4ae..de24837 100644
--- a/pnm.scm
+++ b/pnm.scm
@@ -333,4 +333,5 @@
 	  (else (slib:error 'pnm:array-write type 'unrecognized 'type))))
       (call-with-open-ports
        (open-file port 'wb)
-       (lambda (port) (pnm:array-write type array maxval port)))))
+       (lambda (port)
+	 (apply pnm:array-write type array maxval port comments)))))