Index: tests/aliastest.xotcl
===================================================================
diff -u -rf6be3f63eadda89d7f419a090d86669c6be84c3b -r15a32e3879e2f837288fa6d362f4a88f63c7e80c
--- tests/aliastest.xotcl	(.../aliastest.xotcl)	(revision f6be3f63eadda89d7f419a090d86669c6be84c3b)
+++ tests/aliastest.xotcl	(.../aliastest.xotcl)	(revision 15a32e3879e2f837288fa6d362f4a88f63c7e80c)
@@ -14,6 +14,9 @@
 
 ::xotcl::use xotcl2
 
+# the system methods of Object are either alias or forwarders
+? {lsort [::xotcl::Slot info methods -defined -methodtype alias]} {assign get}
+
 Class create Base
 Base method foo {{-x 1}} {return $x}