diff --git a/src/testsuite.in b/src/testsuite.in
index fbc7d1208e49057dde363fa5f94f59b2a0af25e7..f4385cb18abe4db9096bc25fd7689d3764c794d9 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,5 +1,5 @@
 dnl -*- Pike -*-
-test_true([["$Id: testsuite.in,v 1.280 2000/03/03 01:31:13 hubbe Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.281 2000/03/07 13:03:00 noring Exp $"]]);
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -840,6 +840,13 @@ test_eq([[lambda(int x) { return lambda() { return x; };}(4)()]],4)
 test_eq([[lambda(int x) { return lambda() { return x; };}(17)()]],17)
 test_eq([[lambda(int x) { return lambda() { return lambda() { return x; };};}(17)()()]],17)
 
+test_eq(120,
+        [[ int g()
+           {
+             int f(int i) { return i == 0 ? 1 : i*f(i-1); };
+             return f(5);
+           }; return g(); ]])
+  
 test_eq([[function f;
 	for(int i = 0; i < 2; i++)
 	  { {int _i = i; f = lambda(int j) { return _i+j; }; } }