   (GET "/" 
     {session :session}
     (let [c-session (if session session {})]
-      (assoc (response/redirect (apply str ["/blog/0/" cbsettings/posts-per-page])) :session session)))
+      (redirect-with-session (apply str ["/blog/0/" cbsettings/posts-per-page]) session)))
 
 ;; TEST CODE
   (GET ["/test2/:id" :id #"[0-9]+"] 

        (response-403 session "You must first log in to compose new posts." nil nil))))

  (GET ["/admin/delete/post/:id" :id #"[0-9]+"]
    {session :session, params :params} 
    (if (cbauth/admin? session) 
      {:body (cbblog/post-delete! session params)
        :session session} 
      (response-403 session "You must first log in to delete posts." nil nil)))

  (POST "/admin/submit/post"
    {session :session, params :params}
    (if (cbauth/admin? session) 
      {:body (cbblog/post-npsubmit! session params)
        :session session}

      :session session
      :body (cbtemplate/error-page session-info error-msg back-link back-msg)}))

(defn- response-404 
  [session back-link back-msg]
  (let [
    session-info (cbauth/make-session-info session)
