Index: generic/nsf.tcl
===================================================================
diff -u -re756bf87414d3f6376327b3a126e5e8ae619302d -r3b2edfa776291682e0d251322997aad328b885df
--- generic/nsf.tcl	(.../nsf.tcl)	(revision e756bf87414d3f6376327b3a126e5e8ae619302d)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -55,7 +55,6 @@
     } else {
       set rel "class-mixin"
     }
-    puts stderr LL=[llength $args]-$args
     if {[lindex $args 0] ne ""} {
       set oldSetting [::nsf::relation $object $rel]
       # use uplevel to avoid namespace surprises
@@ -100,9 +99,18 @@
   }
 
   #
-  # determine platform aware temp directory
+  # deprecated command
   #
-  
+  proc ::nsf::deprecated {what oldCmd newCmd} {
+    set msg "**\n** The $what $oldcmd is deprecated."
+    if {$newCmd ne ""} {append msg " use $newCmd instead."}
+    append msg "\n**\n"
+    nsf::log Warning $msg
+  }
+
+  #
+  # determine platform aware temp directory
+  #  
   proc tmpdir {} {
     foreach e [list TMPDIR TEMP TMP] {
       if {[info exists ::env($e)] \