From 5a133ceeceab676eff63174e90b6232771a576c0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 03:28:15 -0500
Subject: [PATCH] Security

---
 .../auth/features/deactivate-user/deactivate-user.factor      | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/furnace/auth/features/deactivate-user/deactivate-user.factor b/extra/furnace/auth/features/deactivate-user/deactivate-user.factor
index 49fa00353b..cf6a56c2d4 100644
--- a/extra/furnace/auth/features/deactivate-user/deactivate-user.factor
+++ b/extra/furnace/auth/features/deactivate-user/deactivate-user.factor
@@ -16,7 +16,9 @@ IN: furnace.auth.features.deactivate-user
         ] >>submit ;
     
 : allow-deactivation ( realm -- realm )
-    <deactivate-user-action> "deactivate-user" add-responder ;
+    <deactivate-user-action> <protected>
+        "delete your profile" >>description
+    "deactivate-user" add-responder ;
 
 : allow-deactivation? ( -- ? )
     realm get responders>> "deactivate-user" swap key? ;