bug#20967: tk FTBFS on master

[Cyril Roelandt]

I cannot seem to build tk from master:


$ make && ./pre-inst-env guix build  tk
Backtrace:
In guix/packages.scm:
 881: 19 [thunk]
 813: 18 [bag->derivation # # #]
In srfi/srfi-1.scm:
 576: 17 [map #<procedure 5211630 at guix/packages.scm:815:30 (t-8107)>
(# # # ...)]
In guix/packages.scm:
 678: 16 [expand-input # # # ...]
 636: 15 [cache # # #<procedure thunk ()>]
 881: 14 [thunk]
 813: 13 [bag->derivation # # #]
In srfi/srfi-1.scm:
 578: 12 [map #<procedure 52113f0 at guix/packages.scm:815:30 (t-8107)>
(# # # ...)]
In guix/packages.scm:
 693: 11 [expand-input # # # ...]
In guix/store.scm:
1002: 10 [run-with-store # ...]
In guix/gexp.scm:
 370: 9 [#<procedure 529cdb0 at guix/gexp.scm:370:2 (state)> #]
In guix/store.scm:
 949: 8 [#<procedure 529c1e0 at guix/store.scm:948:28 (store)> #]
In guix/derivations.scm:
 800: 7 [derivation #<build-daemon 256.14 2af3980> "module-import" ...]
 725: 6 [add-output-paths #<derivation #f =>  48a6cd0>]
In srfi/srfi-1.scm:
 578: 5 [map #<procedure 529c000 at guix/derivations.scm:726:29 (expr)> (#)]
In guix/derivations.scm:
 729: 4 [#<procedure 529c000 at guix/derivations.scm:726:29 (expr)>
("out" . #)]
 664: 3 [store-path "output:out" ...]
In guix/base32.scm:
 142: 2 [#<procedure 2939990 at guix/base32.scm:140:2 (bv)> #vu8(255 123
76 46 218 239 138 71 138 41 7 84 237 22 35 233 231 62 72 19)]
 137: 1 [bytevector-quintet-fold-right #<procedure 47eaa80 at
guix/base32.scm:142:31 (q r)> ...]
  80: 0 [ref6 #vu8(255 123 76 46 218 239 138 71 138 41 7 84 237 22 35
233 231 62 72 19) ...]

guix/base32.scm:80:29: In procedure ref6:
guix/base32.scm:80:29: Throw to key `vm-error' with args `(vm-run "VM:
Stack overflow" ())'.
Backtrace:
In srfi/srfi-1.scm:
 576: 19 [map #<procedure 5211630 at guix/packages.scm:815:30 (t-8107)>
(# # # ...)]
In guix/packages.scm:
 678: 18 [expand-input # # # ...]
 636: 17 [cache # # #<procedure thunk ()>]
 881: 16 [thunk]
 813: 15 [bag->derivation # # #]
In srfi/srfi-1.scm:
 578: 14 [map #<procedure 52113f0 at guix/packages.scm:815:30 (t-8107)>
(# # # ...)]
In guix/packages.scm:
 693: 13 [expand-input # # # ...]
In guix/store.scm:
1002: 12 [run-with-store # ...]
In guix/gexp.scm:
 370: 11 [#<procedure 529cdb0 at guix/gexp.scm:370:2 (state)> #]


In guix/store.scm:
 949: 10 [#<procedure 529c1e0 at guix/store.scm:948:28 (store)> #]
In guix/derivations.scm:
 800: 9 [derivation #<build-daemon 256.14 2af3980> "module-import" ...]
 725: 8 [add-output-paths #<derivation #f =>  48a6cd0>]
In srfi/srfi-1.scm:
 578: 7 [map #<procedure 529c000 at guix/derivations.scm:726:29 (expr)> (#)]
In guix/derivations.scm:
 729: 6 [#<procedure 529c000 at guix/derivations.scm:726:29 (expr)>
("out" . #)]
 664: 5 [store-path "output:out" ...]
In guix/base32.scm:
 142: 4 [#<procedure 2939990 at guix/base32.scm:140:2 (bv)> #vu8(255 123
76 46 218 239 138 71 138 41 7 84 237 22 35 233 231 62 72 19)]
 137: 3 [bytevector-quintet-fold-right #<procedure 47eaa80 at
guix/base32.scm:142:31 (q r)> ...]
  80: 2 [ref6 #vu8(255 123 76 46 218 239 138 71 138 41 7 84 237 22 35
233 231 62 72 19) ...]
In ice-9/boot-9.scm:
 105: 1 [#<procedure 2329180 at ice-9/boot-9.scm:97:6 (thrown-k . args)>
vm-error ...]
  65: 0 [abort-to-prompt catch7 vm-error vm-run "VM: Stack overflow" ()]

ice-9/boot-9.scm:65:2: In procedure abort-to-prompt:
ice-9/boot-9.scm:65:2: Throw to key `vm-error' with args `(vm-run "VM:
Stack overflow" ())'.