diff --git a/db/WebTask.pm.in b/db/WebTask.pm.in
index c96d633b8329c084b30c504430e6817758351fde..ae987f679ec3aa5a94808d9010ce087ce3a66bd3 100644
--- a/db/WebTask.pm.in
+++ b/db/WebTask.pm.in
@@ -286,6 +286,20 @@ sub SetProcessID($$)
     return 0;
 }
 
+# Set the object uuid.
+sub SetObject($$)
+{
+    my ($self, $uuid) = @_;
+    my $task_id       = $self->task_id();
+
+    DBQueryWarn("update web_tasks set object_uuid='$uuid' ".
+		"where task_id='$task_id'")
+	or return -1;
+
+    $self->{'DBROW'}->{'object_uuid'} = $uuid;
+    return 0;
+}
+
 #
 # Mark as exited. We want to leave the row around long enough for
 # anyone waiting to notice it has finished. We will have to GC these