diff --git a/src/smeggdrop/smeggdrop/interpx.tcl b/src/smeggdrop/smeggdrop/interpx.tcl
index 84d1cb5..16cecc7 100644
--- a/src/smeggdrop/smeggdrop/interpx.tcl
+++ b/src/smeggdrop/smeggdrop/interpx.tcl
@@ -209,7 +209,7 @@ method {inspect proc} proc {
   }
 
   method trace_command_for_var var {
-    list ::interpx::touched_var $private_key $var
+    #list ::interpx::touched_var $private_key $var
   }
 
   # callbacks
@@ -343,7 +343,7 @@ method {inspect proc} proc {
     $self . namespace eval ::interpx {}
     $interp alias ::interpx::noop expr 0
     $interp alias ::interpx::timeout ::interpx::timeout
-    $self expose {did touch var} ::interpx::touched_var
+      $self expose {did touch var} ::interpx::touched_var
     
   }
   
diff --git a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl
index 6e2a412..ffad728 100644
--- a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl
+++ b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl
@@ -50,7 +50,7 @@ snit::type versioned_interpreter {
                      -onprocupdated    [list $self did update proc]  \
                      -onprocdestroyed  [list $self did destroy proc] \
                      -onvarcreated     [list $self did create var]   \
-                     -onvarupdated     [list $self did touch var]   \
+                     -onvarupdated     [list $self did update var]   \
                      -onvardestroyed   [list $self did destroy var]  \
                      -timeout          [$self cget -timeout]
                 ]