From 5cb29f56f89db25371b7e328c6f84269bae307d6 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 31 Oct 2013 10:57:04 -0600
Subject: [PATCH] Allowing any user to add tag again

---
 .../meta/pkg-index/official/dynamic.rkt       | 23 ++++++++-----------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/pkgs/plt-services/meta/pkg-index/official/dynamic.rkt b/pkgs/plt-services/meta/pkg-index/official/dynamic.rkt
index dae56cf716..eb2786f59d 100644
--- a/pkgs/plt-services/meta/pkg-index/official/dynamic.rkt
+++ b/pkgs/plt-services/meta/pkg-index/official/dynamic.rkt
@@ -279,19 +279,16 @@
   (jsonp/package/tag/add
    ['pkg pkg]
    ['tag tag])
-  (ensure-package-author
-   pkg
-   (λ ()
-     (cond
-       [(valid-tag? tag)
-        (define i (package-info pkg))
-        (package-info-set!
-         pkg
-         (hash-set i 'tags (tags-normalize (cons tag (package-ref i 'tags)))))
-        (signal-static! (list pkg))
-        #t]
-       [else
-        #f]))))
+  (cond
+    [(valid-tag? tag)
+     (define i (package-info pkg))
+     (package-info-set!
+      pkg
+      (hash-set i 'tags (tags-normalize (cons tag (package-ref i 'tags)))))
+     (signal-static! (list pkg))
+     #t]
+    [else
+     #f]))
 
 (define-jsonp/auth
   (jsonp/package/tag/del