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 -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 {