diff --git a/src/testsuite.in b/src/testsuite.in
index e0b1c73df4653c2538b2d42b3d0c4395536ec98b..006422844718414401c29bb15bef7ea45312b4bb 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.71 1998/02/10 14:38:06 grubba Exp $"]])
+test_true([["$Id: testsuite.in,v 1.72 1998/02/11 00:56:20 grubba Exp $"]])
 test_eq(1e1,10.0)
 test_eq(1E1,10.0)
 test_eq(1e+1,10.0)
@@ -31,6 +31,11 @@ test_equal( [[ ({ (["foo":"bar"]), (<"foo">), ([]) })->foo ]], [[ ({"bar",1,0})
 test_any([[mixed a=({([]),0}); a[1]=a; return a->foo[0];]],0)
 test_eval_error([[return column(({0}),"foo");]])
 
+test_any([[
+class A { constant a=0; int foo() { return a; } };
+class B { inherit A; constant a=1; };
+return B()->foo(); ]], 1)
+
 test_any([[
 class p1 { int foo() { return 1; }};
 class p2 { int foo() { return 3; }};