Index: library/xotcl/tests/speedtest.xotcl
===================================================================
diff -u -N -r67639f37e908458f0c4016135f8d7771c7dde465 -r34c85637bb11720deca13064e587dc41a53134a2
--- library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision 67639f37e908458f0c4016135f8d7771c7dde465)
+++ library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision 34c85637bb11720deca13064e587dc41a53134a2)
@@ -597,6 +597,33 @@
     -cmd {foo; ::B info instances} -expected {} -count 2 \
     -post {B destroy; A destroy; M destroy; MC destroy; rename foo ""}
 
+nx::test new -msg {dict external} \
+    -pre {
+      unset ::_
+      Object create o
+    } \
+    -cmd {
+      lappend ::_ [o dict set d a first]
+      lappend ::_ [o dict set d b second]
+      lappend ::_ [o dict get [o set d] b]
+      set ::_
+    } -expected {{a first} {a first b second} second} -count 2 \
+    -post {o destroy; unset ::_}
+
+nx::test new -msg {dict resolver} \
+    -pre {
+      Object create o
+      o proc foo {} {
+        dict set :mydict 1 one
+        dict set :mydict 2 two
+        dict keys ${:mydict}
+      }
+    } \
+    -cmd {
+      o foo
+    } -expected {1 2} -count 2 \
+    -post {o destroy}
+
 #
 # Check whether the setting of the autoname object property is already
 # visible immediately after the object creation (e.g. in an overloaded