Index: library/nx/plain-object-method.tcl
===================================================================
diff -u -rb531a50ecc43d0c13e2432b099a436c3260c7a49 -rf93a2f18571f5f0fe266cd26299f463d55f0ac2d
--- library/nx/plain-object-method.tcl	(.../plain-object-method.tcl)	(revision b531a50ecc43d0c13e2432b099a436c3260c7a49)
+++ library/nx/plain-object-method.tcl	(.../plain-object-method.tcl)	(revision f93a2f18571f5f0fe266cd26299f463d55f0ac2d)
@@ -7,35 +7,35 @@
     :public method method {      
       name arguments:parameter,0..* -returns body -precondition -postcondition
     } {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :public object [current method] {*}[current args]
     }
 
     :public method alias args {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :public object [current method] {*}$args
     }
     :public method forward args {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :public object [current method] {*}$args
     }
 
-    :public method mixin args {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+    :public method filter args {
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :object [current method] {*}$args
     }
 
-    :public method filter args {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+    :public method mixin args {
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :object [current method] {*}$args
     }
 
     :public method property args {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :object [current method] {*}$args
     }
     :public method variable args {
-      puts stderr "LEGACY CMD: [self] [current method] [current args]"
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
       :object [current method] {*}$args
     }
 
@@ -46,6 +46,11 @@
     :public alias "info mixin guard"      ::nsf::methods::object::info::mixinguard
     :public alias "info mixin classes"    ::nsf::methods::object::info::mixinclasses
 
+    :public method "info slots" args {
+      ::nsf::log warn "LEGACY CMD: [self] [current method] [current args]"
+      :object [current method] {*}$args
+    }
+
   }