read-image to read-png

1 files changed, 1 insertions, 1 deletions

diff --git a/imbricate.ros b/imbricate.ros
index 2693a3b..4683fe2 100755
--- a/imbricate.ros
+++ b/imbricate.ros
@@ -32,7 +32,7 @@ exec ros -Q -- $0 "$@"
 (defvar *bad-images* '())
 
 (defun safe-open-image (path)
-  (handler-case (imago:read-image (format nil "~a" path))
+  (handler-case (imago:read-png (format nil "~a" path))
     (error (c)
       (push path *bad-images*)
       nil)))