Index: xotcl/tests/testo.xotcl
===================================================================
diff -u -r99a7a21854051cd691029b15ef8877aa9e86cf44 -rf9bb662bd07a30d00a33e75ab3354bb9f8463999
--- xotcl/tests/testo.xotcl	(.../testo.xotcl)	(revision 99a7a21854051cd691029b15ef8877aa9e86cf44)
+++ xotcl/tests/testo.xotcl	(.../testo.xotcl)	(revision f9bb662bd07a30d00a33e75ab3354bb9f8463999)
@@ -1,4 +1,4 @@
-# $Id: testo.xotcl,v 1.7 2007/08/06 11:35:56 neumann Exp $
+# $Id: testo.xotcl,v 1.8 2007/08/14 16:36:47 neumann Exp $
 # 
 # Copyright 1993 Massachusetts Institute of Technology
 #
@@ -446,11 +446,12 @@
     #
     # set up some variables
     #
+    
     $obj set scalar 0
     $obj set array() {}
-    $obj unset array()
+    ${obj} unset array()
     $obj set unset.$n {}
-
+    
     #
     # mess with them recursively
     #
@@ -468,7 +469,8 @@
 	my recurse $n
       }
     }
-
+    
+    
     $obj recurse $n
 
     #
@@ -478,15 +480,15 @@
     if {[$obj set scalar] != $n} then {
       error "FAILED [self] - scalar"
     }
-
     $obj unset scalar
 
     for {set i $n} {$i > 0} {incr i -1} {
       if {[$obj set array($i)] != $i} then {
 	error "FAILED [self] - array"
       }
-    }
+    }    
     $obj unset array
+
     if {[$obj info vars "unset.0"] eq ""} then {
       error "FAILED [self] - unset: [$obj info vars]"
     }
@@ -495,6 +497,7 @@
   #
   # trace variables
   #
+
   Variables avar2
 
   avar2 proc trace {var ops} {