Index: tests/objparametertest.xotcl
===================================================================
diff -u -r01a359f1ffe941861c0e10b358b01c2b2b702f38 -rfd885cf0c5e9db40afffb54a2a7e2e3d714a8a14
--- tests/objparametertest.xotcl	(.../objparametertest.xotcl)	(revision 01a359f1ffe941861c0e10b358b01c2b2b702f38)
+++ tests/objparametertest.xotcl	(.../objparametertest.xotcl)	(revision fd885cf0c5e9db40afffb54a2a7e2e3d714a8a14)
@@ -68,6 +68,8 @@
 # test passed arguments
 ? {catch {D create d1 -d 123}} 0 "create d1 with required argument given"
 ? {catch {D create d1}} 1 "create d1 without required argument given"
+catch {D create d1} errorMsg
+? {set _ $errorMsg} XX "check error msg"
 
 ## TODO: initcmd->trackType {obj var type} => trace var ...