Index: openacs-4/packages/simulation/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/Attic/role-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/simulation/tcl/role-procs.tcl	16 Dec 2003 18:34:00 -0000	1.8
+++ openacs-4/packages/simulation/tcl/role-procs.tcl	17 Dec 2003 09:34:22 -0000	1.9
@@ -130,7 +130,7 @@
                     db_dml update_role "
                         update sim_roles
                         set    [join $update_clauses ", "]
-                        where  task_id = :role_id
+                        where  role_id = :role_id
                     "
                 }
             }