Index: tests/parameters.tcl
===================================================================
diff -u -r7d7f47ce5d7b7c2d252af5d4499b50996f6475ff -r29a6e282641a301a6dbe3dfea315ec285456661d
--- tests/parameters.tcl	(.../parameters.tcl)	(revision 7d7f47ce5d7b7c2d252af5d4499b50996f6475ff)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision 29a6e282641a301a6dbe3dfea315ec285456661d)
@@ -1154,9 +1154,9 @@
 
 Test case slot-traces {
   ::nx::Object create o {
-    :attribute a {set :defaultcmd { puts ...init; set _ 4 } }
-    :attribute b {set :valuecmd { puts ...get-value; set _ 44 } }
-    :attribute c {set :valuechangedcmd { puts ...changed; ::nsf::setvar $obj $var 999 }}
+    :attribute a {set :defaultcmd { set _ 4 } }
+    :attribute b {set :valuecmd { set _ 44 } }
+    :attribute c {set :valuechangedcmd { ::nsf::setvar $obj $var 999 }}
   }
 
   ? {o a} 4
@@ -1170,8 +1170,8 @@
   ? {o c 5} 999
 
   ::nx::Class create C {
-    :attribute a {set :defaultcmd { puts ...init; set _ 4 } }
-    :attribute b {set :valuecmd { puts ...get-value; set _ 44 } }
+    :attribute a {set :defaultcmd { set _ 4 } }
+    :attribute b {set :valuecmd { set _ 44 } }
     :attribute c {set :valuechangedcmd { ::nsf::setvar $obj $var 999 }}
     :create c1
   }