1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm
index b88b5f4..e74f28a 100644
--- a/Perl/Zinc/TraceErrors.pm
+++ b/Perl/Zinc/TraceErrors.pm
@@ -44,7 +44,7 @@ BEGIN {
     my $bold = "[1m";
     my $_bold = "[m";
     
-    if ($ZincTrace::on == 1) {
+    if (defined $ZincTrace::on and $ZincTrace::on == 1) {
 	print STDERR $bold."Tk::Zinc::TraceErrors: incompatible package Tk::Zinc::Trace is already ".
 	    "loaded".$_bold." (exit 1)\n";
 	exit 1;