Issue with remote async processes.

[Ergus]

Hi:

I have this simple code:

(defun my/async-sentinel (process _msg)
  "Sentinel function for an asynchronous counsel PROCESS."
  (when (eq (process-status process) 'exit)
    (with-current-buffer " *string-output*"
      (while (accept-process-output process))
      (message "%s" (buffer-substring-no-properties (point-min) (point-max))))))

(let ((my/output (generate-new-buffer " *string-output*" t))
      process)
  (with-connection-local-variables
   (setq process (start-file-process "myls" my/output "ls"))
   (set-process-sentinel process #'my/async-sentinel)))

This works in local processes without issues, but on remote I don't get
any output.  Probably it is an error in the code, but I don't understand
what's missing. And something similar to this used to work before.

Any help please?