From baed98ce7aa4d0b5c5adb2760e8a6de9f51497b1 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sat, 1 Oct 2022 08:04:40 +0100
Subject: [PATCH] fix bug when creating thumbnail whilst uploading a file to
 /storage.

---
 src/web.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/web.lisp b/src/web.lisp
index e4ee05a..1cc9b05 100644
--- a/src/web.lisp
+++ b/src/web.lisp
@@ -806,7 +806,7 @@
 						 (utils:slugify (caddr item))
 						 (cadddr item))
 
-			  (when (str:contains? "image" (caddr item) :ignore-case t)
+			  (when (str:contains? "image" (cadddr item) :ignore-case t)
 			    (utils:create-thumbnail
 			     "media" (utils:format-filename (caddr item)) nil)
 			    (nera:add-storage-file