diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 566d117b0..0dd849942 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -398,7 +398,7 @@ allowed on MACHINE. Return +∞ if MACHINE is unreachable." ((? session? session) (let* ((pipe (open-remote-pipe* session OPEN_READ "cat" "/proc/loadavg")) - (line (read-line pipe))) + (line (pk 'line (read-line pipe)))) (close-port pipe) (if (eof-object? line)