anchor.diff:  			      (unless (zerop (length response-buffer))
   				(write-uint32 (usocket:socket-stream socket)
   					      (logior #x80000000 (length response-buffer)))
  -				(write-sequence response-buffer (usocket:socket-stream socket))))))
  +				(write-sequence response-buffer (usocket:socket-stream socket)))
  +                  (force-output (usocket:socket-stream socket)))))
   		      (end-of-file ()
   			(frpc-log :info "Connection closed by remote host")
   			(setf connections (remove socket connections :key #'rpc-connection-conn)))
  
positive.code: (defun process-rpc-call (input-stream output-stream 
  			 &key host port protocol id auth verf program version proc)
    "Process the actual call. read the argument, handle it and write the response."
    (frpc-log :trace "Call ~A:~A:~A" program version proc)
    (let ((rverf (process-rpc-auth output-stream auth verf id)))
      ;; check the verifier
      (unless rverf 
  
negative.code: 	    
  	    ;; funcall the handler to get the result 
  	    (let ((arg (handler-case (read-xtype #'arg-reader input-stream)
  			 (error (e)
  			   (frpc-log :trace "Failed to read argument: ~A" e)
  			   (write-rpc-response output-stream 
  