Minor fix

photo-store.lisp

@@ -50,7 +50,7 @@
 (defun db-load-album (album-id &optional full)
   (with-db (db)
     (multiple-value-bind (name cover-id)
-        (sqlite:execute-one-row-m-v db "select id, name, cover_id from albums where id = ?" album-id)
+        (sqlite:execute-one-row-m-v db "select name, cover_id from albums where id = ?" album-id)
       (when name
         (let ((photos (iter (for (id path title w h hidden)
                                  in-sqlite-query "select p.id, p.path, ap.description, p.width, p.height, ap.hidden from photos p inner join album_photos ap on ap.photo_id = p.id where ap.album_id = ? and (ap.hidden is null or ? is not null) order by ap.idx"