diff --git a/src/testsuite.in b/src/testsuite.in
index 1492152e011f27310bccb37d6bab4faf2b6371ca..ed52da87772280671d1366b4d9d97d4e9e2dbc69 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.183 1999/07/30 23:43:06 mast Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.184 1999/08/03 21:31:05 noring Exp $"]])
 cond([[all_constants()->_verify_internals]],
 [[
   test_do(_verify_internals())
@@ -524,6 +524,15 @@ 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([[function f;
+	for(int i = 0; i < 2; i++)
+	  { {int _i = i; f = lambda(int j) { return _i+j; }; } }
+	return f(17);]],
+	[[function f;
+	for(int i = 0; i < 2; i++)
+	  { {int _i = i; f = lambda(int j) { return _i+j; }; } int FEL; }
+	return f(17);]]);
+
 test_true([[lambda(function f) {return 1;}(object_program(this_object()));]])
 test_eq([[class c { int `()(){ return 4711; } }()(); ]],4711)
 teste_eval_error(mixed foo=({}); sort(@foo); )