diff --git a/src/testsuite.in b/src/testsuite.in
index 38e5ad3fceef8f3e92df872bad535a924ac7a929..ac827f44d26775c0275ab33145aaecd0330fc315 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.360 2001/01/03 19:47:09 nilsson Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.361 2001/01/03 21:14:36 mast Exp $"]]);
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -3922,6 +3922,10 @@ test_eq(1 | 9,9)
 test_equal( ({1,2,3,4,4}) | ({3,5,6}), ({1,2,4,4,3,5,6}))
 test_equal( (<4,5,6>) | (<5,5,5>), (<4,5,5,5,6>) )
 test_equal( ([-4:8,8:7]) | ([3:3,8:3]), ([-4:8,8:3,3:3]) )
+test_any([[
+  class Foo {int `< (object o) {return 0;}};
+  return sizeof (({Foo()}) | ({Foo()}));
+]], 2)
 
 // testing &
 test_eq(0 & 0,0)