bug#33030: Crash in progress-bar

[Ricardo Wurmus <rekado@elephly.net>]

I’ve just got the very same error:

--8<---------------cut here---------------start------------->8---
downloading from https://berlin.guixsd.org/nar/gzip/iql35g1g5q9dkap5splc7f9ggskr31vl-NamesList.txt...
Backtrace:
In guix/scripts/package.scm:
   913:10 19 (_)
In guix/status.scm:
    600:4 18 (call-with-status-report _ _)
In guix/scripts/package.scm:
   921:14 17 (_)
   873:19 16 (process-actions #<build-daemon 256.98 1b9ff50> _)
    598:4 15 (options->installable ((upgrade . #f) (verbosity . 0) (graft? . #t) (substitutes? . #t) (# . #t) # # …) …)
In srfi/srfi-1.scm:
   501:18 14 (fold-right #<procedure 1b98700 at guix/scripts/package.scm:598:16 (entry transaction)> _ _ . _)
In guix/scripts/package.scm:
   238:37 13 (transaction-upgrade-entry _ #<<manifest-transaction> install: (#<<manifest-entry> name: "qtractor" ve…>)
In guix/packages.scm:
   881:14 12 (cache! #<weak-table 970/1759> #<package alsa-plugins@1.1.6 gnu/packages/linux.scm:1060 2d9c300> (. #) _)
In unknown file:
          11 (_ #<procedure thunk ()> #<procedure list _> #<undefined>)
In guix/grafts.scm:
    303:4 10 (graft-derivation #<build-daemon 256.98 1b9ff50> #<derivation /gnu/store/cy3q34absx81bfygp33ji4nxi7m1…> …)
    181:4  9 (references-oracle #<build-daemon 256.98 1b9ff50> #<derivation /gnu/store/cy3q34absx81bfygp33ji4nxi7m1…>)
   190:20  8 (_ _ _)
In guix/store.scm:
  1100:15  7 (_ #<build-daemon 256.98 1b9ff50> _ _)
   661:13  6 (process-stderr _ _)
In unknown file:
           5 (display "@ download-progress /gnu/store/iql35g1g5q9dkap5splc7f9ggskr31vl-NamesList.txt https://berli…" …)
In guix/status.scm:
   521:16  4 (write! _ _ _)
    439:6  3 (_ (download-progress "/gnu/store/iql35g1g5q9dkap5splc7f9ggskr31vl-NamesList.txt" "https://berlin.…" …) …)
In guix/progress.scm:
   208:33  2 (display-download-progress _ _ #:start-time _ #:transferred _ #:log-port _)
   183:12  1 (progress-bar _ _)
In unknown file:
           0 (make-string -51 #\space)

ERROR: In procedure make-string:
Value out of range 0 to 18446744073709551615: -51
--8<---------------cut here---------------end--------------->8---

I do not have a local log file for the download of that file.

“guix build --log-file /gnu/store/iql35g1g5q9dkap5splc7f9ggskr31vl-NamesList.txt” prints
“https://mirror.hydra.gnu.org/log/iql35g1g5q9dkap5splc7f9ggskr31vl-NamesList.txt”.

--
Ricardo