diff --git a/src/testsuite.in b/src/testsuite.in
index 30ea496b47e82338943441a15952c739eb8a2db7..d0ff33f0643499cb96aa7fb2cb75bb7ca31f8cb9 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.88 1998/04/10 22:24:22 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.89 1998/04/11 00:21:03 grubba Exp $"]])
 test_eq(1e1,10.0)
 test_eq(1E1,10.0)
 test_eq(1e+1,10.0)
@@ -58,6 +58,16 @@ test_compile_any([[
      }
   }
 ]])
+
+// Testing __INIT
+test_any([[
+  class X { int x = 1; };
+  class Y { int y = 2; };
+  class Z { inherit X; inherit Y; int z = 4; };
+  object zz = Z();
+  return zz->x + zz->y + zz->z;
+]], 7)
+
 test_any([[
 class X {
  static string f() { return "p"; }
@@ -1856,7 +1866,7 @@ test_search3($1,($1[..strlen($1)-3]))
 test_search3($1,($1[1..]))
 ]])
 
-dnl some m4 doesn't handle 8 bit characters...
+dnl some m4's don't handle 8 bit characters...
 test_search4("SUNE")
 test_search4("kapit\344l>")
 test_search4("-------------------+")