This patch hard-codes the Tk library directory during package initialization.

See <http://core.tcl.tk/tk/tktview/765642ffffffffffffff>.

diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index b5cbbab..96b5501 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -988,6 +988,7 @@ TkCreateMainWindow(
 
     Tcl_SetVar2(interp, "tk_patchLevel", NULL, TK_PATCH_LEVEL, TCL_GLOBAL_ONLY);
     Tcl_SetVar2(interp, "tk_version",    NULL, TK_VERSION,     TCL_GLOBAL_ONLY);
+    Tcl_SetVar2(interp, "tk_library",    NULL, TK_LIBRARY,     TCL_GLOBAL_ONLY);
 
     tsdPtr->numMainWindows++;
     return tkwin;
diff --git a/unix/Makefile.in b/unix/Makefile.in
index f21fdbb..c61b0df 100644
--- a/unix/Makefile.in
+++ b/unix/Makefile.in
@@ -1029,7 +1029,7 @@ tkVisual.o: $(GENERIC_DIR)/tkVisual.c
 	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkVisual.c
 
 tkWindow.o: $(GENERIC_DIR)/tkWindow.c
-	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkWindow.c
+	$(CC) -c $(CC_SWITCHES) -DTK_LIBRARY=\"${TK_LIBRARY}\" $(GENERIC_DIR)/tkWindow.c
 
 tkButton.o: $(GENERIC_DIR)/tkButton.c
 	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkButton.c
?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>refs</a><a class='active' href='/guix/log/gnu/services/cups.scm'>log</a><a href='/guix/tree/gnu/services/cups.scm?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>tree</a><a href='/guix/commit/gnu/services/cups.scm?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>commit</a><a href='/guix/diff/gnu/services/cups.scm?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/cups.scm'>
<input type='hidden' name='id' value='ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>root</a>/<a href='/guix/log/gnu?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>gnu</a>/<a href='/guix/log/gnu/services?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>services</a>/<a href='/guix/log/gnu/services/cups.scm?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12'>cups.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/cups.scm?id=ece22a25b6d94b99748fcfc3dbdb492f9d99ea12&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-08-31 03:24:41 +0200'>2019-08-31</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=5a097cdd5446587511dbee049ad706366c74e5ad'>services: cups: Rename ‘retry-this-job’ to ‘retry-current-job’.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/cups.scm (error-policy, cups-configuration): Substitute
RETRY-CURRENT-JOB for the obsolete RETRY-THIS-JOB name of this policy.
* doc/guix.texi (Printing Services): Likewise.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-08-30 03:41:42 +0200'>2019-08-30</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=70186c24eee7603e1763143ba97ab6abea63f10c'>services: cups: Move SET-ENV to FILES-CONFIGURATION.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/cups.scm (cups-configuration): Move SET-ENV from here…
(files-configuration): …to here.
* doc/guix.texi (Printing Services): Adjust accordingly.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-08-30 03:41:42 +0200'>2019-08-30</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=ee0de9945438cce41ef20e37144f41a8d40cd1ab'>services: cups: Add BrowseDNSSDSubTypes directive.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/cups.scm (comma-separated-string-list?)
(serialize-comma-separated-string-list): New variables.
(cups-configuration)[browse-dns-sd-sub-types]: New field.
* doc/guix.texi (Printing Services): Document it.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-08-27 08:58:37 +0200'>2019-08-27</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=9e3ef6f3e37aa65f25cbe025106324144ed42b3d'>services: cups: Update SSL-OPTIONS docstring.</a><span class='msg-avail'>...<span class='msg-tooltip'>This follows up on commit f9c1ebdb7daea30ceaf73f43bf15c222dc4a58ad.

* gnu/services/cups.scm (cups-configuration)&lt;ssl-options&gt;:
Update docstring.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-08-27 08:49:14 +0200'>2019-08-27</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=f9c1ebdb7daea30ceaf73f43bf15c222dc4a58ad'>services: cups: Complete SSL-OPTIONS.</a><span class='msg-avail'>...<span class='msg-tooltip'>…except for ‘AllowDH’, which makes no sense on GNU TLS systems.

* gnu/services/cups.scm (ssl-options?): Validate ‘DenyCBC’ and
‘DenyTLS1.0’.
* doc/guix.texi (Printing Services): Document them both.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-06-05 17:27:23 +0200'>2019-06-05</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=36273ebde20db42d864e315c954d84d2b4957070'>services: cups: Create /var/cache on activation.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/cups.scm (%cups-activation): Create /var/cache if it doesn't
exist yet.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Alex Griffin</td></tr>
<tr><td><span title='2019-03-13 23:12:43 +0100'>2019-03-13</span></td><td><a href='/guix/commit/gnu/services/cups.scm?id=59e80445882f8b0379e54916f89510c0deda6698'>Remove traces of "GuixSD".</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/bootloader/extlinux.scm (extlinux-configuration-file): Remove
mentions of "GuixSD".
* gnu/bootloader/grub.scm (install-grub-efi): Likewise.
* gnu/build/vm.scm (make-iso9660-image): Change default #:volume-id to
"Guix_image".
(initialize-hard-disk): Search for the "Guix_image" label.
* gnu/ci.scm (system-test-jobs, tarball-jobs): Remove "GuixSD".
* gnu/installer/newt/welcome.scm (run-welcome-page): Likewise.
* gnu/packages/audio.scm (supercollider)[description]: Likewise.
* gnu/packages/curl.scm (curl): Likewise.
* gnu/packages/emacs.scm (emacs): Likewise.
* gnu/packages/gnome.scm (network-manager): Likewise.
* gnu/packages/julia.scm (julia): Likewise.
* gnu/packages/linux.scm (alsa-plugins): Likewise.
(powertop, wireless-regdb): Likewise.
* gnu/packages/package-management.scm (guix): Likewise.
* gnu/packages/polkit.scm (polkit): Likewise.
* gnu/packages/tex.scm (texlive-bin): Likewise.
* gnu/services/base.scm (file-systems-&gt;fstab): Likewise.
* gnu/services/cups.scm (%cups-activation): Likewise.
* gnu/services/mail.scm (%dovecot-activation): Likewise.
* gnu/services/messaging.scm (prosody-configuration)[log]: Likewise.
* gnu/system/examples/vm-image.tmpl (vm-image-motd): Likewise.
* gnu/system/install.scm (installation-os)[file-systems]: Change root
file system label to "Guix_image".
* gnu/system/mapped-devices.scm (check-device-initrd-modules):
Remove "GuixSD".
* gnu/system/vm.scm (system-docker-image): Likewise.
(system-disk-image)[root-label]: Change to "Guix_image".
* gnu/tests/install.scm (run-install): Remove "GuixSD".
* guix/modules.scm (guix-module-name?): Likewise.
* nix/libstore/optimise-store.cc: Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>