Index: tests/contains.test
===================================================================
diff -u -N -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r5371aaaf333c92616a8baf6e521df386909b876d
--- tests/contains.test	(.../contains.test)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ tests/contains.test	(.../contains.test)	(revision 5371aaaf333c92616a8baf6e521df386909b876d)
@@ -82,6 +82,14 @@
 }
 ? {c2 bar} "::c2-::c2"
 
+# 
+# Test potential crash, when methodNamePath is computed without a
+# stack frame
+#
+C public method foo {{-new 0} name value} { return $value}
+catch {c1 foo -name a b} errMsg
+? {set errMsg} \
+    {Invalid argument 'b', maybe too many arguments; should be "::c1 foo ?-new value? name value"}
 
 # Test resolving of implicit namespaces in relationcmds (here
 # superclass) in the nx namespace.