Index: openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql	14 Mar 2001 04:39:10 -0000	1.1
+++ openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql	17 Mar 2001 21:46:06 -0000	1.2
@@ -326,20 +326,22 @@
     return ''t'';
   else
     if group_contains_p__rel_id is null then
-      for map in (select *
+      for map in  select *
                   from group_component_map
                   where component_id = group_contains_p__component_id
-                  and group_id = container_id) loop
+                  and group_id = container_id 
+      LOOP
         if group_contains_p(group_contains_p__group_id, map.group_id) = ''t'' then
           return ''t'';
         end if;
       end loop;
     else
-      for map in (select *
+      for map in  select *
                   from group_component_map
                   where component_id = group_contains_p__component_id
                   and rel_id = group_contains_p__rel_id
-                  and group_id = container_id) loop
+                  and group_id = container_id 
+      LOOP
         if group_contains_p(group_contains_p__group_id, map.group_id) = ''t'' then
           return ''t'';
         end if;