From 9ce8116fad5a079343eebef63d0cac7176927570 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 03:16:45 -0500
Subject: [PATCH] Fix 'delete user'

---
 extra/webapps/user-admin/user-admin.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/webapps/user-admin/user-admin.factor b/extra/webapps/user-admin/user-admin.factor
index 359730d4b2..f445b6f471 100644
--- a/extra/webapps/user-admin/user-admin.factor
+++ b/extra/webapps/user-admin/user-admin.factor
@@ -139,7 +139,7 @@ TUPLE: user-admin < dispatcher ;
     <action>
         [
             validate-username
-            <user> select-tuple 1 >>deleted update-tuple
+            "username" value <user> select-tuple 1 >>deleted update-tuple
             URL" $user-admin" <redirect>
         ] >>submit ;