# Mark the calling request object as answered, use the
# ID param to create and return an response packet object.
# Let the old system know this is done.
sub _respond {
    my ($self, $request, $id, $response ) = @_;

    my $response = $request->new;    ### Hey!!

    $request->count( $request->count + 1 );

    if ( $response->approved) {
        $response->requestor( $id);
        $response->finish( SUCCESS ); 
        $request->answered( $id)
        Request_handler->reap( $request->id());
        return $response;
    }
    $response->finish( FAIL);
    return;
}