Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -N -r1.4.2.46 -r1.4.2.47
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	1 Jul 2005 17:34:31 -0000	1.4.2.46
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	21 Jul 2005 23:08:36 -0000	1.4.2.47
@@ -952,6 +952,10 @@
     
     @error 
 } {
+    if {![db_0or1row check_for_ingredient "select 1 from pm_tasks where task_id = :task_item_id_1"] || 
+        ![db_0or1row check_for_ingredient "select 1 from pm_tasks where task_id = :task_item_id_2"]} {
+        return false
+    }
 
     if {[string equal $task_item_id_1 $task_item_id_2]} {
         # do nothing
@@ -971,7 +975,8 @@
         VALUES
         (:task_item_id_2, :task_item_id_1)"
     }
-    
+
+    return true
 }