Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v
diff -u -N -r1.10.2.1 -r1.10.2.2
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	2 Jan 2004 17:16:13 -0000	1.10.2.1
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	2 Mar 2004 13:56:34 -0000	1.10.2.2
@@ -153,7 +153,11 @@
 
     # grant all selected privs
     foreach privilege $privileges {
-        permission::grant -party_id $party_id -object_id $object_id -privilege $privilege
+        # Lars: For some reason, selecting no privileges returns in a list 
+        # containing one element, which is the empty string
+        if { ![empty_string_p $privilege] } {
+            permission::grant -party_id $party_id -object_id $object_id -privilege $privilege
+        }
     }
     
     ad_returnredirect "one?[export_vars [list object_id application_url]]"