Index: dtrace/sample.tcl
===================================================================
diff -u -rcbd6b858b9324c125b8b6aad66c85d3482bb8bd4 -rf27953b113459a5f2592002b6b1307aa0eb7bd80
--- dtrace/sample.tcl	(.../sample.tcl)	(revision cbd6b858b9324c125b8b6aad66c85d3482bb8bd4)
+++ dtrace/sample.tcl	(.../sample.tcl)	(revision f27953b113459a5f2592002b6b1307aa0eb7bd80)
@@ -3,7 +3,7 @@
 ::nsf::configure dtrace on
 
 nx::Object create o {
-  :public method foo {x y} {
+  :public object method foo {x y} {
     [self] ::incr x 1
     return [expr {$x + $y}]
   }