diff --git a/src/storage.lisp b/src/storage.lisp
index 58f0370..bef3f50 100644
--- a/src/storage.lisp
+++ b/src/storage.lisp
@@ -305,13 +305,13 @@ Before calling this function, make sure the file exists. You should have
 ;;; This function requires ImageMagick so you will need to install it
 ;;; with 'sudo apt install imagemagick' (assuming you are on a
 ;;; Debian-based system).
-(defun convert (id subdirectory original-file converted-file)
-  (let ((command (format nil "convert -geometry ~A ~A ~A"
-			 (file-size converted-file)
-			 (make-storage-pathname id subdirectory original-file)
-			 (make-storage-pathname id subdirectory converted-file))))
-    (let ((message (nth-value 1
-			      (uiop:run-program command
-						:ignore-error-status t
-						:error-output :string))))
-      (when message (error message)))))
+;; (defun convert (id subdirectory original-file converted-file)
+;;   (let ((command (format nil "convert -geometry ~A ~A ~A"
+;; 			 (file-size converted-file)
+;; 			 (make-storage-pathname id subdirectory original-file)
+;; 			 (make-storage-pathname id subdirectory converted-file))))
+;;     (let ((message (nth-value 1
+;; 			      (uiop:run-program command
+;; 						:ignore-error-status t
+;; 						:error-output :string))))
+;;       (when message (error message)))))