Index: tests/parameters.tcl
===================================================================
diff -u -r89b5047e54e47a88a7de75d8523a07ffa5743407 -r6166d76909482a0a4c1296cb959462d71c688922
--- tests/parameters.tcl	(.../parameters.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision 6166d76909482a0a4c1296cb959462d71c688922)
@@ -443,7 +443,7 @@
   
   D method foo {a b {-c 1} {-d} x {-end 100}} {
     set result [list]
-    foreach v [[current class] info method args [current proc]] {
+    foreach v [[current class] info method args [current method]] {
       lappend result $v [info exists $v]
     }
     return $result
@@ -454,7 +454,7 @@
   
   D method foo {a b c {end 100}} {
     set result [list]
-    foreach v [[current class] info method args [current proc]] {
+    foreach v [[current class] info method args [current method]] {
       lappend result $v [info exists $v]
     }
     return $result
@@ -901,7 +901,7 @@
 Test case slot-specfic-converter {
   Class create Person
   Person slots {
-    Attribute create sex -type "sex" {
+    ::nx::Attribute create sex -type "sex" {
       :method type=sex {name value} {
 	#puts stderr "[current] slot specific converter"
 	switch -glob $value {