diff --git a/ement.el b/ement.el
index c9596a7..1b33045 100644
--- a/ement.el
+++ b/ement.el
@@ -682,14 +682,15 @@ can cause undesirable underlining."
   "Return a copy of IMAGE set to MAX-WIDTH and MAX-HEIGHT.
 IMAGE should be one as created by, e.g. `create-image'."
   ;; It would be nice if the image library had some simple functions to do this sort of thing.
-  (let ((new-image (cl-copy-list image)))
-    (when (fboundp 'imagemagick-types)
-      ;; Only do this when ImageMagick is supported.
-      ;; FIXME: When requiring Emacs 27+, remove this (I guess?).
-      (setf (image-property new-image :type) 'imagemagick))
-    (setf (image-property new-image :max-width) max-width
-          (image-property new-image :max-height) max-height)
-    new-image))
+  (when image
+    (let ((new-image (cl-copy-list image)))
+      (when (fboundp 'imagemagick-types)
+        ;; Only do this when ImageMagick is supported.
+        ;; FIXME: When requiring Emacs 27+, remove this (I guess?).
+        (setf (image-property new-image :type) 'imagemagick))
+      (setf (image-property new-image :max-width) max-width
+            (image-property new-image :max-height) max-height)
+      new-image)))
 
 ;;;;; Reading/writing sessions