Index: openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl 30 Nov 2002 17:40:18 -0000 1.4 +++ openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl 3 Oct 2003 11:12:27 -0000 1.5 @@ -42,9 +42,12 @@ ns_log Notice "NOTIF- one reply $reply_id of type $type_id" - notification::type::process_reply -type_id $type_id -reply_id $reply_id - - notification::reply::delete -reply_id $reply_id + if { [ catch { + notification::type::process_reply -type_id $type_id -reply_id $reply_id + notification::reply::delete -reply_id $reply_id + } err ] } { + ns_log Error "NOTIF- notification::reply::sweep bombed on reply_id $reply_id - $err" + } } }