Index: library/nx/nx.tcl
===================================================================
diff -u -r53113de78cadfd4913718676222d6021d4e7a3fc -r2d609d0c01e236da96542cefab42d8c8f6a3d1e9
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 53113de78cadfd4913718676222d6021d4e7a3fc)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 2d609d0c01e236da96542cefab42d8c8f6a3d1e9)
@@ -239,6 +239,7 @@
   ######################################################################
 
   ::nsf::method::create Class method {
+    -debug:switch -deprecated:switch
     name arguments:parameter,0..* -checkalways:switch -returns body
   } {
     set p [:__resolve_method_path $name]
@@ -254,6 +255,8 @@
 	::nsf::method::property $object $r call-protected \
 	    [::nsf::dispatch $object __default_method_call_protection]
 	if {[info exists returns]} {::nsf::method::property $object $r returns $returns}
+        if {$debug} {::nsf::method::property $object $r debug true}
+        if {$deprecated} {::nsf::method::property $object $r deprecated true}
       }
       return $r
     }
@@ -521,6 +524,7 @@
     #    - "forward"
 
     :public method "object method" {
+      -debug:switch -deprecated:switch
       methodName arguments:parameter,0..* -checkalways:switch -returns body
     } {
       set pathData  [:__resolve_method_path -per-object $methodName]
@@ -538,6 +542,8 @@
 	::nsf::method::property $object $r call-protected \
 	    [::nsf::dispatch $object __default_method_call_protection]
 	if {[info exists returns]} {::nsf::method::property $object $r returns $returns}
+        if {$debug} {::nsf::method::property $object $r debug true}
+        if {$deprecated} {::nsf::method::property $object $r deprecated true}
       }
       return $r
     }