fix add-storage-file regression bug (database and file different).

When uploading a file to /storage the database stored the un-formatted name and
the file was stored with the formated name. This meant when anyone tried to
download or rename the file, the website would produce an error. This commit
fixes this and has the database and file storage system store the files name in
the formatted way (all lowercase with no whitespace).

src/web.lisp

@@ -898,7 +898,7 @@
 		      :do (storage:store-file
 			   "" "media" (utils:format-filename (caddr item)) (cdr item))
 
-			  (nera:add-storage-file (caddr item)
+			  (nera:add-storage-file (utils:format-filename (caddr item))
 						 (utils:slugify (caddr item))
 						 (cadddr item))
 			  ;; Thumbnail not stored in the database. It