bug#33030: Crash in progress-bar

[Leo Famulari]

While updating my installed packages, Guix crashed as shown below. I
don't really know how to interpret it.

$ guix --version
guix (GNU Guix) aa227b3be3d7728331a08dbd139c47c9b271dc23
Copyright (C) 2018 the Guix authors
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
$ ./pre-inst-env guix package -u .
[...]
downloading from 
https://private.mirror/guix/nar/gzip/iql35g1g5q9dkap5splc7f9ggskr31vl-NamesList.txt...
Backtrace:.txt  347KiB                               1.4MiB/s 00:00 
[################  ]  92.3%
In guix/scripts/package.scm:
   910:10 19 (_)
In guix/status.scm:
    513:4 18 (call-with-status-report _ _)
In guix/scripts/package.scm:
   918:14 17 (_)
   870:19 16 (process-actions #<build-daemon 256.98 2768f50> _)
    595:4 15 (options->installable ((upgrade . ".") (# . 0) (. #) …) …)
In srfi/srfi-1.scm:
   501:18 14 (fold-right #<procedure 255ec80 at guix/scripts/pack…> . #)
In guix/scripts/package.scm:
   236:37 13 (transaction-upgrade-entry _ #<<manifest-transaction> i…>)
In guix/packages.scm:
   881:14 12 (cache! #<weak-table 1587/3517> #<package address@hidden g…> …)
In unknown file:
          11 (_ #<procedure thunk ()> #<procedure list _> #<undefined>)
In guix/grafts.scm:
    303:4 10 (graft-derivation #<build-daemon 256.98 2768f50> #<der…> …)
    181:4  9 (references-oracle #<build-daemon 256.98 2768f50> #<der…>)
   190:20  8 (_ _ _)
In guix/store.scm:
  1087:15  7 (_ #<build-daemon 256.98 2768f50> _ _)
   661:13  6 (process-stderr _ _)
In unknown file:
           5 (display "@ download-progress /gnu/store/iql35g1g5q9dk…" …)
In guix/status.scm:
   474:13  4 (write! _ _ 181)
    422:6  3 (_ (download-progress "/gnu/store/iql35g1g5q9dkap5s…" …) …)
In guix/progress.scm:
   208:33  2 (display-download-progress _ _ #:start-time _ # _ # _)
   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

signature.asc
Description: PGP signature