Index: openacs-4/packages/cms/www/modules/items/relate-items-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/relate-items-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/relate-items-2.tcl	24 May 2001 23:57:17 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/relate-items-2.tcl	26 May 2001 19:45:03 -0000	1.4
@@ -142,15 +142,15 @@
           }
 
           # Perform the insertion
-          db_exec_plsql relate "begin 
-      :rel_id := content_item.relate (
+          set rel_id [db_exec_plsql relate "begin 
+      :1 := content_item.relate (
           item_id       => :item_id,
           object_id     => :related_id,
           relation_tag  => :relation_tag,
           order_n       => :order_n,
           relation_type => :relation_type
       );
-    end;" rel_id
+    end;"]
 
           # Insert any extra attributes
           if { [llength $elements] > 0 } {