Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -N -r1.52 -r1.53
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	15 Sep 2018 16:49:08 -0000	1.52
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	15 Sep 2018 17:08:38 -0000	1.53
@@ -375,9 +375,7 @@
     @creation-date 10/2000
 
 } {
-    return [db_string select_join_policy {
-        select join_policy from groups where group_id = :group_id
-    }]
+    return [dict get [group::get -group_id $group_id] join_policy]
 }
 
 ad_proc -public group::description {
@@ -388,9 +386,7 @@
     @creation-date 09/2008
 
 } {
-    return [db_string select_description {
-        select description from groups where group_id = :group_id
-    }]
+    return [dict get [group::get -group_id $group_id] description]
 }
 
 ad_proc -public group::update {
Index: openacs-4/packages/acs-subsite/tcl/group-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/group-procs.xql,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/group-procs.xql	7 Aug 2017 23:47:58 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/group-procs.xql	15 Sep 2018 17:08:38 -0000	1.10
@@ -1,16 +1,6 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="group::new.package_select">      
-      <querytext>
-      
-	    select t.package_name, lower(t.id_column) as id_column
-	      from acs_object_types t
-	     where t.object_type = :group_type
-	
-      </querytext>
-</fullquery>
-
 <fullquery name="group::get_id_not_cached.get_group_id">
       <querytext>
       
@@ -57,14 +47,6 @@
 </fullquery>
 
 
-<fullquery name="group::join_policy.select_join_policy">      
-      <querytext>
-      
-	    select join_policy from groups where group_id = :group_id
-	
-      </querytext>
-</fullquery>
-
 <fullquery name="group::get_rel_segment.select_segment_id">      
       <querytext>