Index: tests/object-system.test
===================================================================
diff -u -N -r2872e1f0a6523c7fb44952492e05414c4f8d9c84 -r2f6bcca3537584c8ef1f9fc71b230e79d1560504
--- tests/object-system.test	(.../object-system.test)	(revision 2872e1f0a6523c7fb44952492e05414c4f8d9c84)
+++ tests/object-system.test	(.../object-system.test)	(revision 2f6bcca3537584c8ef1f9fc71b230e79d1560504)
@@ -418,5 +418,12 @@
 ? {C create c1} ::c1
 ? {A info instances -closure} ::c1
 
+
+
+::nsf::configure keepcmds 1
+::nx::Object create o {set :x 1}
+? {o info vars} "x __cmd"
+? {o eval {array get :__cmd}} "__initblock {set :x 1}"
+
 puts stderr ===EXIT
 ::nsf::configure dtrace off