Index: tests/testx.xotcl
===================================================================
diff -u -rba364529cbe05cbf9acf64aa728bf7316c8b4af7 -r9be808f7267163cc1f3911b5f9ad750cac0dc397
--- tests/testx.xotcl	(.../testx.xotcl)	(revision ba364529cbe05cbf9acf64aa728bf7316c8b4af7)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision 9be808f7267163cc1f3911b5f9ad750cac0dc397)
@@ -3891,6 +3891,17 @@
   errorCheck [catch {o p7 -x 2 }] 1 nonpos-16
   errorCheck [catch {o p8 -x 2 }] 0 nonpos-17
   o destroy
+
+  Class X
+  X instproc ListOfStringsOption {{-default "murr6"} {-cb {}} name} {
+    if {$cb eq {}} { set cb "::set ::$name " } ;# global variable
+    eval $cb \$default
+  }
+  ::X create x1
+  ::x1 ListOfStringsOption uu
+  errorCheck [set ::uu] murr6 murr6
+  ::x1 destroy
+  X destroy
 }