anchor.diff:  
   (defdao persistent-session ()
     ((id :col-type serial :reader sykosomatic.db:id)
  -   (cookie-value :col-type text :initform (random-string 64) :reader session-cookie-value)
  +   (cookie-value :col-type text :initform (random-string 256) :reader session-cookie-value)
      (account-id :col-type bigint :initarg :account-id)
      (user-agent :col-type text :initform (user-agent *request*))
      (last-remote-addr :col-type text :initform (real-remote-addr *request*))
  
positive.code:            :single)))
  
  (defmethod session-verify ((request persistent-session-request))
    (let ((session-identifier (or (cookie-in (session-cookie-name *acceptor*) request)
                                  (get-parameter (session-cookie-name *acceptor*) request))))
      (when (and session-identifier
                 (stringp session-identifier)
                 (not (emptyp session-identifier)))
  
negative.code:     (push-error "You must be logged in to access that page.")
      (redirect "/login")))
  
  (defun sykosomatic-cookie-name ()
    "sykosomatic-session")
  
  (defun persistent-session-gc ()
    (with-db ()
      (let ((old-session-ids (query (:select 'id :from 'persistent-session
  