Index: library/xotcl/tests/speedtest.xotcl
===================================================================
diff -u -N -rbedb248602f8940383c0f4a10bb4f99b3a5f2c4f -r38b96e36c03950b6d2617d8e0bb8477913172a89
--- library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision bedb248602f8940383c0f4a10bb4f99b3a5f2c4f)
+++ library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision 38b96e36c03950b6d2617d8e0bb8477913172a89)
@@ -300,6 +300,7 @@
 
 Test new -cmd {llength [c info children]} -expected $ccount
 Test new -cmd {c info children ::c::5}  -expected ::c::5
+Test new -cmd {c info children 5}  -expected ::c::5
 
 Test new -count 1 -cmd {llength [Object info instances]} -expected $ocount