Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -reb758924a74f48512c98a40a539ab0c4e5a35de9
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 45e24b34c85bf0fc3e14db5250550100bd07ff31)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision eb758924a74f48512c98a40a539ab0c4e5a35de9)
@@ -141,6 +141,27 @@
 ? {O2 superclass} "::M"
 
 #
+# test "... info default ..." and "... info instdefault ..."
+#
+::nx::test case info-default {
+    ::xotcl::Class create ::Test
+    ::Test proc m0 {-id:required {-flag:boolean true} -switch:switch x {y 1}} {return 0}
+    ::Test instproc m1 {-id:required {-flag:boolean true} -switch:switch x {y 1}} {return 0}
+
+    ? {::Test info default m0 y default0} 1
+    ? {info exists default0} 1
+
+    ? {::Test info default m0 x default1} 0
+    
+    unset -nocomplain default0 default1
+
+    ? {::Test info instdefault m1 y default0} 1
+    ? {info exists default0} 1
+
+    ? {::Test info instdefault m1 x default1} 0
+ }
+
+#
 # The main difference between an Attribute and a Role is that it
 # references some other objects
 #