Index: doc/example-scripts/tk-locomotive.tcl
===================================================================
diff -u -r7c692cef773e19f9da59bef6498ba673cdff468e -r1711d2463a88d72589e00a87b0a0842cf8e7f9fa
--- doc/example-scripts/tk-locomotive.tcl	(.../tk-locomotive.tcl)	(revision 7c692cef773e19f9da59bef6498ba673cdff468e)
+++ doc/example-scripts/tk-locomotive.tcl	(.../tk-locomotive.tcl)	(revision 1711d2463a88d72589e00a87b0a0842cf8e7f9fa)
@@ -1,6 +1,6 @@
 #
 # Example by <Richard Suchenwirth> 
-# http://wiki.tcl.tk/1329
+# http://wiki.tcl-lang.org/1329
 #
 # - translated from Tcl to XOTcl by gustaf neumann in 2001
 # - translated from XOTcl to NX by gustaf neumann in 2010
@@ -85,7 +85,7 @@
 nx::Class create Locomotive {
   :property {speed 4}
 
-  :require trait nx::traits::callback
+  :require trait nx::trait::callback
 
   :method turn {} {
     set :alpha [expr {round(${:alpha} + 360 - ${:speed}) % 360}]