Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v
diff -u -N -r1.17.2.4 -r1.17.2.5
--- openacs-4/packages/acs-subsite/www/permissions/one.tcl	28 Oct 2015 09:38:39 -0000	1.17.2.4
+++ openacs-4/packages/acs-subsite/www/permissions/one.tcl	6 Jul 2016 13:47:03 -0000	1.17.2.5
@@ -8,7 +8,7 @@
     @creation-date 2000-08-20
     @cvs-id $Id$
 } {
-    object_id:naturalnum,notnull
+    object_id:integer,notnull
     {children_p:boolean "f"}
     {application_url ""}
 }
@@ -30,11 +30,9 @@
 
 set context [list [list "./" [_ acs-subsite.Permissions]] [_ acs-subsite.Permissions_for_name]]
 
-db_multirow inherited inherited_permissions {} { 
-}
+db_multirow inherited inherited_permissions {} {}
 
-db_multirow acl acl {} {
-}
+db_multirow acl acl {} {}
 
 set controls [list]
 set controlsUrl [export_vars -base grant {application_url object_id}]
@@ -50,7 +48,7 @@
     lappend controls "<a href=\"[ns_quotehtml $toggleUrl]\">Inherit Permissions from [ns_quotehtml $context_name]</a>"
 }
 
-set controls "\[ [join $controls " | "] \]"
+set controls "\[ [join $controls { | }] \]"
 
 set export_form_vars [export_vars -form {object_id application_url}]