Index: openacs-4/packages/cms/www/modules/users/user-assoc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/users/user-assoc.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/users/user-assoc.tcl	24 May 2001 23:57:17 -0000	1.2
+++ openacs-4/packages/cms/www/modules/users/user-assoc.tcl	8 Jun 2001 01:44:53 -0000	1.3
@@ -38,7 +38,7 @@
     } else {
         set code {
             if { [catch { 
-                db_exec_plsql user_assoc_root2 "
+                set rel_id [db_exec_plsql user_assoc_root2 "
         declare
           v_group_id groups.group_id%TYPE;
           v_user_id users.user_id%TYPE;
@@ -52,7 +52,7 @@
           creation_user => :user_id, creation_ip => :ip); 
 
           exception when no_data_found then null;
-        end;" [list 1] rel_id
+        end;"]
             } errmsg] } {
             }
         }