Index: generic/predefined.xotcl
===================================================================
diff -u -rd16b1ff12a9ab1dd196bbdb33510ad94959155b3 -r091d3c94b06fd94c8e2bf39f806c43483909e2af
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision d16b1ff12a9ab1dd196bbdb33510ad94959155b3)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 091d3c94b06fd94c8e2bf39f806c43483909e2af)
@@ -991,12 +991,12 @@
         namespace eval $dest {}
       }
       :copyNSVarsAndCmds $origin $dest
-      foreach i [$origin info forward] {
-        eval [concat $dest forward $i [$origin info forward -definition $i]]
+      foreach i [::xotcl::cmd::ObjectInfo::forward $origin] {
+        eval [concat ::xotcl::forward $dest -per-object $i [::xotcl::cmd::ObjectInfo::forward $origin -definition $i]]
       }
       if {[::xotcl::objectproperty $origin class]} {
-        foreach i [$origin info instforward] {
-          eval [concat $dest instforward $i [$origin info instforward -definition $i]]
+        foreach i [::xotcl::cmd::ClassInfo::forward $origin] {
+          eval [concat ::xotcl::forward $dest $i [::xotcl::cmd::ClassInfo::forward $origin -definition $i]]
         }
       }
       set traces [list]