Index: tests/forwardtest.tcl
===================================================================
diff -u -r29ea21bd3f28ea7effaca6039e59a8a3499f8fd8 -r51725aa434e18e9e3ce656897011c4f40c98d8dd
--- tests/forwardtest.tcl	(.../forwardtest.tcl)	(revision 29ea21bd3f28ea7effaca6039e59a8a3499f8fd8)
+++ tests/forwardtest.tcl	(.../forwardtest.tcl)	(revision 51725aa434e18e9e3ce656897011c4f40c98d8dd)
@@ -139,7 +139,7 @@
     ? {C info forward} [list Info]
 
     # get the definition of a instforwarder
-    ? {C info method definition Info} [list ::C forward Info -methodprefix @ Info %1 %self]
+    ? {C info method definition Info} [list ::C public forward Info -methodprefix @ Info %1 %self]
 
     # check introspection for objects
     Object create obj {