Index: tests/testo.xotcl
===================================================================
diff -u -r217d826e64107056ae97176552cae3c776991b9e -rf9807b1cea03590c9573b5a521760538d53ee90f
--- tests/testo.xotcl	(.../testo.xotcl)	(revision 217d826e64107056ae97176552cae3c776991b9e)
+++ tests/testo.xotcl	(.../testo.xotcl)	(revision f9807b1cea03590c9573b5a521760538d53ee90f)
@@ -470,7 +470,7 @@
     #
     
     if {[$obj set scalar] != $n} then {
-      error "FAILED [self] - scalar"
+      error "FAILED [self] - scalar [$obj set scalar] != $n"
     }
 
     $obj unset scalar
@@ -501,11 +501,11 @@
   avar2 proc trace {var ops} {
     my instvar $var
     ::trace variable $var $ops "avar2 traceproc"
-    #::trace variable $var $ops "traceproc"
+    #puts stderr "::trace variable $var $ops avar2 traceproc"
   }
 
   avar2 proc traceproc {maj min op} {
-    set majTmp [namespace tail "$maj"]
+    set majTmp [namespace tail $maj]
     #puts stderr ...TRACE
     global trail; lappend trail [list $majTmp $min $op]
   }
@@ -527,11 +527,9 @@
     avar2 set array($i) [avar2 set scalar$i]
     lappend guide [list array $i w]
   }
-
- if {$guide != $trail} then {
+  if {$guide != $trail} then {
     error "FAILED [self] - trace: expected $guide, got $trail"
   }
-
   #
   # destroy must trigger unset traces
   #
@@ -541,7 +539,9 @@
   for {set i 0} {$i < $n} {incr i} {
     lappend guide [list scalar$i {} u]
   }
+
   avar2 killSelf
+
   if {[lsort $guide] != [lsort $trail]} then {
     error "FAILED [self] - trace: expected $guide, got $trail"
   }