bug#58290: guile ssh error on guix deploy

[Ludovic Courtès]

A simpler reproducer:

--8<---------------cut here---------------start------------->8---
(use-modules (ssh session)
             (ssh popen)
             (ssh auth)
             (rnrs io ports))

(define session
  (make-session #:host "HOST-OF-YOUR-CHOICE"))

(session-parse-config! session)
(connect! session)
(userauth-public-key/auto! session)

(let loop ((i 0))
  (pk 'loOp i)
  (let ((pipe (open-remote-pipe session "date" "r")))
    (pk 'x (get-string-all pipe))
    (close-port pipe)
    (loop (+ 1 i))))
--8<---------------cut here---------------end--------------->8---

Ludo’.