1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index e346f48..84cb66e 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -68,15 +68,15 @@ sub BEGIN {
     # save current Tk::Zinc::InitObject function; it will be invoked in
     # overloaded one (see below)
     $initobjectfunction = Tk::Zinc->can('InitObject');
-    *Tk::Zinc::InitObject = *InitObject;
+    #*Tk::Zinc::InitObject = *ZincDebug::InitObject;
 	
 }
 
 # Hack to capture the instance of zinc. ZincDebug functions are invoked here.
 # Note that created bindings might be overloaded by the application.
-sub InitObject {
+sub Tk::Zinc::InitObject {
     Tk::Widget::InitObject(@_);
-    #print "Tk::Zinc::InitObject\n";
+    print "***** ZincDebug Tk::Zinc::InitObject\n";
     # invoke function possibly overloaded in other modules
     &$initobjectfunction(@_) if $initobjectfunction;
     return unless $preload;