Index: tests/testx.xotcl
===================================================================
diff -u -rf3a84ed90cf24565e3bae87abfe8185acc0e9cc4 -r091d3c94b06fd94c8e2bf39f806c43483909e2af
--- tests/testx.xotcl	(.../testx.xotcl)	(revision f3a84ed90cf24565e3bae87abfe8185acc0e9cc4)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision 091d3c94b06fd94c8e2bf39f806c43483909e2af)
@@ -2573,6 +2573,11 @@
 	return [self]--[self class]--[self proc]--[next]--
       }
     }
+    X::Y::Z instforward a b
+    X::Y::Z forward c d
+    ::errorCheck [X::Y::Z info instforward -definition a] "b" "define instforward"
+    ::errorCheck [X::Y::Z info forward -definition c] "d" "define forward"
+
     X::Y::Z z
     X::Y::Z copy V
     V v
@@ -2587,6 +2592,8 @@
     ::errorCheck "[::cutSpaces [V info instinvar]--[V info instpre assProc]--[V info instpost assProc]]"\
       "{7 > 6} { #a comment }--{5 > 4} { #pre }--{5 > 4} { #post }"\
       "Copy Class Assertions"
+    ::errorCheck [V info instforward -definition a] "b" "copied instforward"
+    ::errorCheck [V info forward -definition c] "d" "copied forward"
     #::errorCheck "[V info metadata]--[V metadata Author]--[V metadata Version]--[V metadata Nothing]"\
       "Version Author Nothing--Uwe--0.0.9--"\
       "Copy Metadata"
@@ -4299,7 +4306,6 @@
 }
 
 x
-puts stderr C-instances=[C info instances]
 errorCheck [expr {[llength [C info instances]] > 0}] 0 "top, all volatile object gone"
 
 proc x1 {} {