Fix edit-blog action

diff --git a/extra/webapps/planet/planet.factor b/extra/webapps/planet/planet.factor
index cd6e183d14f8acc575b9879f21d7456ba8eefa0f..00d843573cc0eba8a7498a4641dbbf98621ac131 100755 (executable)
--- a/extra/webapps/planet/planet.factor
+++ b/extra/webapps/planet/planet.factor
@@ -166,14 +166,14 @@ posting "POSTINGS"
         [
             f <blog>
             [ deposit-blog-slots ]
+            [ "id" value >>id ]
             [ update-tuple ]
-            [
-                <url>
-                    "$planet/admin" >>path
-                    swap id>> "id" set-query-param
-                <redirect>
-            ]
             tri
+
+            <url>
+                "$planet/admin" >>path
+                "id" value "id" set-query-param
+            <redirect>
         ] >>submit ;
 
 : <planet-admin> ( -- responder )