Index: tests/object-system.test
===================================================================
diff -u -N -r9f32dd2c379759ca82cf9b49dcc9c62af01f5cc8 -rbd04645d1db6908ced09abb49ba31979b2fcd39b
--- tests/object-system.test	(.../object-system.test)	(revision 9f32dd2c379759ca82cf9b49dcc9c62af01f5cc8)
+++ tests/object-system.test	(.../object-system.test)	(revision bd04645d1db6908ced09abb49ba31979b2fcd39b)
@@ -260,6 +260,22 @@
 ? {o foo} "x1 0 y1 0 x2 0 y2 1 x3 1 y3 1"
 o destroy
 
+#
+# Create objects via tcl ensembles
+#
+namespace eval k {
+  nx::Class create s {
+    :property j
+    :method init {} {set :j} ;# the variable should be set
+  }
+  namespace export s
+  namespace ensemble create
+}
+
+? {k s create o -j X} ::o
+::o destroy
+
+
 puts stderr ===MINI-OBJECTSYSTEM
 # test object system
 # create a minimal object system without internally dipatched methods