Index: tests/forwardtest.tcl
===================================================================
diff -u -rf1cd1537386ab1fdfabccaadae215990e376ae9d -rd168a26bce713de8daa5bbe79d740926e961c5bc
--- tests/forwardtest.tcl	(.../forwardtest.tcl)	(revision f1cd1537386ab1fdfabccaadae215990e376ae9d)
+++ tests/forwardtest.tcl	(.../forwardtest.tcl)	(revision d168a26bce713de8daa5bbe79d740926e961c5bc)
@@ -285,8 +285,8 @@
 
     Class create NS	
     Class create NS::Main {
-	:object method m1 {} { :m2 }
-	:object method m2 {} {
+	:class-object method m1 {} { :m2 }
+	:class-object method m2 {} {
 	    ? {namespace eval :: {Object create toplevelObj1}} ::toplevelObj1
   
 	    ? [list set _ [namespace current]] ::NS
@@ -365,7 +365,7 @@
 
     Class create C {
 	:method xx {} {current}
-	:object method t {o expr} {
+	:class-object method t {o expr} {
 	    return [$o expr $expr]
 	}
     }