Index: tests/submethods.test
===================================================================
diff -u -r1d1a1be1636a5b6f9ad6e3b5df2a6aa7170b62f0 -rb2ab5886fc3278e549bb2772dfce921fbd06a9e9
--- tests/submethods.test	(.../submethods.test)	(revision 1d1a1be1636a5b6f9ad6e3b5df2a6aa7170b62f0)
+++ tests/submethods.test	(.../submethods.test)	(revision b2ab5886fc3278e549bb2772dfce921fbd06a9e9)
@@ -497,7 +497,7 @@
       [current class] eval [list set :msg [list [current methodpath] \
 					       [current calledmethod] \
 					       [current calledclass] \
-					       [current next]]]
+					       [current nextmethod]]]
       next
     }