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’.
