diff of 16fdeb21c9d90a1f0fd5772705b88109653b9521

16fdeb21c9d90a1f0fd5772705b88109653b9521
diff --git a/src/view/admin/new-post.lisp b/src/view/admin/new-post.lisp
index 9ddbd67..10bae35 100644
--- a/src/view/admin/new-post.lisp
+++ b/src/view/admin/new-post.lisp
@@ -30,7 +30,7 @@
 		;; TODO wrap these stupid sql-wrappers with something that unbinds values automatically
 		(caar (insert-post "New post" "New title" (user-id *user*) "[]" t t))))
 	  (format t "A new post with id ~d should now exist~%" post-id)
-	  (redirect 'blog/post/editor :id (format nil "~d" post-id)))
+	  (hunchentoot:redirect (format nil "/blog/post/editor/~d" post-id)))
 	"no can do")))
 
 (deftab blog/post/editor (:url "/post/editor/:id"
diff --git a/src/view/components/tabs.lisp b/src/view/components/tabs.lisp
index 2103e72..2c895d1 100644
--- a/src/view/components/tabs.lisp
+++ b/src/view/components/tabs.lisp
@@ -42,7 +42,7 @@
 		  &body rst)
   `(progn
      (setf (gethash (quote ,sym) *tabs*)
-	   (make-instance 'tab :url ,url
+	   (make-instance 'tab :url ,(format nil "/blog~A" url)
 			       :abilities (list ,@needed-abilities)
 			       :require-login ,require-login
 			       :subtab (quote ,subtab)
diff --git a/src/view/single-post.lisp b/src/view/single-post.lisp
index 387bebc..70918a0 100644
--- a/src/view/single-post.lisp
+++ b/src/view/single-post.lisp
@@ -9,7 +9,7 @@
 
 (in-package :murja.view.single-post)
 
-(deftab blog/post/id (:url "blog/post/:id"
+(deftab blog/post/id (:url "/post/:id"
 		      :subtab t
 		      :captured-url-params (id))
   (let ((post (get-post id :allow-hidden? nil)))