62dbb0a12f4fc9103faabd0d4c713b5bf09b3c8b
diff --git a/src/middleware/auth.lisp b/src/middleware/auth.lisp
index 526b7c0..244bd82 100644
--- a/src/middleware/auth.lisp
+++ b/src/middleware/auth.lisp
@@ -69,7 +69,7 @@
(defun @can? (next ability)
(if (and *user*
(member ability
- (users:abilities *user*)
+ (coerce (users:abilities *user*) 'list)
:test #'string=))
(funcall next)
(progn