Index: xotcl/tests/testo.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r78e82b3563a644f2df47320eacc693f1b788b03c
--- xotcl/tests/testo.xotcl	(.../testo.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/tests/testo.xotcl	(.../testo.xotcl)	(revision 78e82b3563a644f2df47320eacc693f1b788b03c)
@@ -1,4 +1,4 @@
-# $Id: testo.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# $Id: testo.xotcl,v 1.2 2006/02/18 22:17:33 neumann Exp $
 # 
 # Copyright 1993 Massachusetts Institute of Technology
 #
@@ -111,7 +111,7 @@
   Safety instproc put {thing} {
     my instvar count
     incr count
-    next $thing
+    next
   }
   
   Safety instproc get {} {
@@ -365,7 +365,7 @@
 
   TestClass 0
   0 instproc init {args} {
-    eval next $args
+    next
     my set order {}
   }