Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.211.2.2 -r1.211.2.3
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Sep 2015 11:40:39 -0000	1.211.2.2
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	2 Jan 2016 21:58:25 -0000	1.211.2.3
@@ -343,7 +343,11 @@
         while {1} {
             if {$parent_community_id ne ""} {
                 #admin of the parent need admin on the subcommunity.
-                set parent_admin_party [db_string "parent_admin_party" "select segment_id from rel_segments where group_id = :parent_community_id and rel_type='dotlrn_admin_rel'"]
+                set parent_admin_party [db_string parent_admin_party {
+                    select segment_id
+                    from rel_segments
+                    where group_id = :parent_community_id and rel_type='dotlrn_admin_rel'
+                }]
                 permission::grant -party_id $parent_admin_party -object_id $community_id -privilege "admin"
                 
                 #if this community has a parent we need to work up the chain.