Index: tests/parameters.tcl
===================================================================
diff -u -rf3cb5afe6aa1b6761b4a9909058f64ff7d64ab92 -r033c63d771af5253b0e94c2a9c1c6a94df40242e
--- tests/parameters.tcl	(.../parameters.tcl)	(revision f3cb5afe6aa1b6761b4a9909058f64ff7d64ab92)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision 033c63d771af5253b0e94c2a9c1c6a94df40242e)
@@ -822,8 +822,14 @@
       {expected object but got "xxx" for parameter o} \
       "value is not an object"
 
-  ParamTest slots {
-    ::nx::Attribute create os -type object -multivalued true
+  #ParamTest slots {
+  #  ::nx::Attribute create os -type object -multivalued true
+  #}
+  ParamTest eval {
+      :attribute os {
+	  :type object 
+	  :multivalued true
+      }
   }
   
   ? {p os o} \
@@ -899,11 +905,24 @@
 # slot specific converter
 #######################################################
 Test case slot-specfic-converter {
-  Class create Person
-  Person slots {
-    ::nx::Attribute create sex -type "sex" {
+  #  Class create Person
+  # Person slots {
+  #   ::nx::Attribute create sex -type "sex" {
+  #     :method type=sex {name value} {
+  # 	#puts stderr "[current] slot specific converter"
+  # 	switch -glob $value {
+  # 	  m* {return m}
+  # 	  f* {return f}
+  # 	  default {error "expected sex but got $value"}
+  # 	}
+  #     }
+  #   }
+  # }
+  Class create Person {
+    :attribute sex {
+      :type "sex"
       :method type=sex {name value} {
-	#puts stderr "[current] slot specific converter"
+	#puts stderr "[self] slot specific converter"
 	switch -glob $value {
 	  m* {return m}
 	  f* {return f}