diff --git a/src/testsuite.in b/src/testsuite.in
index 5fae3d71ab64c55ca6a10c54f4800767b0e01df9..df2a935b0e6699d9c4b77a7b196818d5f27cfb0c 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.62 1997/12/03 22:46:18 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.63 1998/02/11 00:56:34 grubba Exp $"]])
 test_eq(1e1,10.0)
 test_eq(1E1,10.0)
 test_eq(1e+1,10.0)
@@ -19,6 +19,11 @@ class p2 { int foo() { return 3; }};
 class c1 { inherit p1; inherit p2; int foo() { return p1::foo()+p2::foo(); }};
 class c2 { inherit c1; }; return c2()->foo();]],4)
 
+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 2; } };