Index: xotcl/tests/testx.xotcl
===================================================================
diff -u -r09f6e8e5fc0163ad71fcf113a5b5dfc63da4a5db -r638782f84b31e4ebfd00529381e280c70f9950bc
--- xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 09f6e8e5fc0163ad71fcf113a5b5dfc63da4a5db)
+++ xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 638782f84b31e4ebfd00529381e280c70f9950bc)
@@ -1,4 +1,4 @@
-#$Id: testx.xotcl,v 1.14 2004/07/27 21:39:46 neumann Exp $
+#$Id: testx.xotcl,v 1.15 2004/08/17 10:12:55 neumann Exp $
 package require XOTcl
 namespace import -force xotcl::*
 
@@ -3377,6 +3377,9 @@
     o proc x {a b} {
 	return "$a $b"
     }
+    o proc x {} {a b} {
+	return "$a $b"
+    }
     o proc y {-x {-a {1 2 3}}} {a b} {
 	return "$args"
     }