Index: openacs-4/packages/acs-subsite/tcl/relation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	11 Dec 2003 21:39:55 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	26 Jan 2004 15:39:46 -0000	1.10
@@ -76,6 +76,9 @@
 	lappend var_list [list member_state $member_state]
     }
 
+    # We initialize rel_id, so it's set if there's a problem
+    set rel_id {}
+
     # We use db_transaction inside this proc to roll back the insert
     # in case of a violation
 
@@ -109,7 +112,6 @@
     }
 
     return $rel_id
-
 }