Index: tests/contains.test
===================================================================
diff -u -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 -r1790b67dd3db1bcad91a31d97e97509361825f23
--- tests/contains.test	(.../contains.test)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
+++ tests/contains.test	(.../contains.test)	(revision 1790b67dd3db1bcad91a31d97e97509361825f23)
@@ -63,6 +63,32 @@
 }]
 
 #
+# error and errorcode propagation from within contains
+#
+
+Class create Arbre
+? {catch {Arbre create root {
+  :contains {
+    Arbre create level1 {
+      :contains {
+        Arbre level2
+      }
+    }
+  }
+}} msg opts; set msg} "method 'level2' unknown for ::Arbre; in order to create an instance of class ::Arbre, consider using '::Arbre create level2 ?...?'"
+
+Class create Arbre
+? {catch {Arbre create root {
+  :contains {
+    Arbre create level1 {
+      :contains {
+        return -code error -errorcode MYERR
+      }
+    }
+  }
+}} msg opts; dict get $opts -errorcode} "MYERR"
+
+#
 # Test resolving next without namespace import/path
 #
 namespace path ""