Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/workflow/tcl/role-procs.tcl	6 Nov 2003 15:42:59 -0000	1.9
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	18 Nov 2003 17:57:57 -0000	1.10
@@ -434,7 +434,9 @@
         lappend callback_impl_names,${role_id}(${row(contract_name)}) $row(impl_name)
         set callbacks_array,${role_id}($row(impl_id)) [array get row]
     } 
-    unset row
+    if { [info exists row] } {
+        unset row
+    }
 
     foreach role_id $role_ids {
         set role,${role_id}(callback_impl_names) [array get callback_impl_names,$role_id]