Index: generic/predefined.h
===================================================================
diff -u -re756bf87414d3f6376327b3a126e5e8ae619302d -r3b2edfa776291682e0d251322997aad328b885df
--- generic/predefined.h	(.../predefined.h)	(revision e756bf87414d3f6376327b3a126e5e8ae619302d)
+++ generic/predefined.h	(.../predefined.h)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -21,7 +21,6 @@
 "set rel \"object-mixin\"\n"
 "set args [lrange $args 1 end]} else {\n"
 "set rel \"class-mixin\"}\n"
-"puts stderr LL=[llength $args]-$args\n"
 "if {[lindex $args 0] ne \"\"} {\n"
 "set oldSetting [::nsf::relation $object $rel]\n"
 "uplevel [list ::nsf::relation $object $rel [linsert $oldSetting 0 $args]]} else {\n"
@@ -41,6 +40,11 @@
 "ns_log $level \"nsf: $msg\"}} else {\n"
 "proc ::nsf::log {level msg} {\n"
 "puts stderr \"$level: $msg\"}}\n"
+"proc ::nsf::deprecated {what oldCmd newCmd} {\n"
+"set msg \"**\\n** The $what $oldcmd is deprecated.\"\n"
+"if {$newCmd ne \"\"} {append msg \" use $newCmd instead.\"}\n"
+"append msg \"\\n**\\n\"\n"
+"nsf::log Warning $msg}\n"
 "proc tmpdir {} {\n"
 "foreach e [list TMPDIR TEMP TMP] {\n"
 "if {[info exists ::env($e)] \\\n"