--- tkispell.orig	Sat Oct 28 20:33:47 2006
+++ tkispell	Sat Oct 28 20:34:14 2006
@@ -11,7 +11,7 @@ $VERSION=0.17;
 my $fn = '*-helvetica-medium-r-*-*-12-*'; # Widget font
 
 my $lang = $ENV{LANG};
-if ($lang =~ /^C$/ || ! defined ($lang)) {$lang = 'default'; }
+if (defined ($lang) && $lang =~ /^C$/ || ! defined ($lang)) {$lang = 'default'; }
 my $hdict = $ENV{HOME}."/.ispell_$lang"; # Personal dictionary. 
 
 my $ispell_prog = `which ispell`;