Index: tests/testx.xotcl
===================================================================
diff -u -rad43de1007d040a9860eac2445a8c7781dcb4d06 -rba364529cbe05cbf9acf64aa728bf7316c8b4af7
--- tests/testx.xotcl	(.../testx.xotcl)	(revision ad43de1007d040a9860eac2445a8c7781dcb4d06)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision ba364529cbe05cbf9acf64aa728bf7316c8b4af7)
@@ -2050,7 +2050,27 @@
     o destroy
 }
 
+@ TestX procsearchTest {
+  description {
+    Regression test for procsearch
+  }
+}
+TestX procsearchTest -proc run {{n 10}} {
 
+  Class M -instproc foo args {puts m;next}
+  Object o -mixin M -proc foo args {puts o;next}
+  ::errorCheck [o procsearch foo] "::M instproc foo" "mixin before proc in procsearch"
+  M destroy
+  o destroy
+
+  Class CC -instproc foo args {puts CC;next}
+  CC create c -proc foo args {puts c;next} 
+  ::errorCheck [c procsearch foo] "::c proc foo" "proc before instproc in procsearch"
+  CC destroy
+  c destroy
+}
+
+
 @ TestX mixinInheritanceTest {
   description {
     Regression test object testing per-object mixin inheritance.