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 -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	20 Nov 2003 16:40:27 -0000	1.8.2.1
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	22 Dec 2003 17:19:06 -0000	1.8.2.2
@@ -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
-
 }