--- tetex-src-3.0/texk/tetex/texdoctk.tkdep	2004-11-06 00:12:14.000000000 +0100
+++ tetex-src-3.0/texk/tetex/texdoctk	2005-07-18 14:57:54.132164864 +0200
@@ -9,7 +9,11 @@
 # and the full disclaimer.
 ###############################################################################
 use strict;
-use Tk;
+BEGIN {
+  eval {require Tk;};
+  die "This program requires perl-Tk. Try to look in fedora-extras.\n" if $@;
+  import Tk;
+}
 use Getopt::Long;
 Getopt::Long::config('bundling');
 use File::Basename;