Index: tol_tests/tol/Bugzilla/bug_001708/check.1.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001708/check.1.tol	(revision 57eee00653a7277c6805a966d7a75a349aa466c6)
+++ tol_tests/tol/Bugzilla/bug_001708/check.1.tol	(revision 57eee00653a7277c6805a966d7a75a349aa466c6)
@@ -0,0 +1,22 @@
+Real RandInteger(Real min, Real max) { Floor(Rand(min,max+1)) };
+Set _RandCharacter.Set = Characters("abcdefghijklmnopqrstuvwxyz"
+  "ABCDEFGHIJKLMNOPQRSTUVWXYZ_");
+Text RandCharacter(Real void) {
+  _RandCharacter.Set[RandInteger(1,53)] 
+};
+Text RandName(Real length) {
+  SetSum(For(1, length, Text (Real i) { RandCharacter(?) }))
+};
+
+// Generación de nombres:
+Set names = For(1, 10000, Set (Real i) {
+  [[ Text RandName(32), Text Repeat("A", 32) ]]
+});
+
+/*
+Set For(1, 10000, Set (Real i) {
+  Set [[
+    Real Eval("Real "<<names[i][1]<<" = 1")
+  ]]
+});
+*/
Index: tol_tests/tol/Bugzilla/bug_001708/check.2.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001708/check.2.tol	(revision 57eee00653a7277c6805a966d7a75a349aa466c6)
+++ tol_tests/tol/Bugzilla/bug_001708/check.2.tol	(revision 57eee00653a7277c6805a966d7a75a349aa466c6)
@@ -0,0 +1,13 @@
+Set mem.0 = MemoryStatus(?);
+
+Set For(1, 10000, Set (Real i) {
+  Set [[
+    Real Eval("Real "<<names[i][1]<<" = 1")
+  ]]
+});
+
+Set mem.1 = MemoryStatus(?);
+
+Real lostMem = mem.0::AvailPageFile-mem.1::AvailPageFile;
+
+Real ok = lostMem < 2^21; //2MB
Index: tol_tests/tol/Bugzilla/bug_001708/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001708/test.tol	(revision 57eee00653a7277c6805a966d7a75a349aa466c6)
+++ tol_tests/tol/Bugzilla/bug_001708/test.tol	(revision 57eee00653a7277c6805a966d7a75a349aa466c6)
@@ -0,0 +1,31 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a fixed bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary 
+  Real bugNum_ = 1708;
+  Text email_ = "vdebuen@tol-project.org"; 
+  Text summary_ = "Uso de RAM en TOL: Asignación de nombres";
+  Text link_ = GetTolBugzillaLink(bugNum_);
+
+//Write here the initial test TOL code if needed
+  Real numErr0 = Copy(NError);
+
+  #Embed "check.1.tol";
+  #Embed "check.2.tol";
+
+  Real numErr1 = Copy(NError);
+
+  Set partialResults_ = [[ numErr0, numErr1, lostMem  ]];
+
+//This is a messure of the success of the test 
+Real quality_ = Group("And", [[EQ(numErr1, numErr0),ok]] );
+
+//Return the results 
+  Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                    "Partial results = "<<partialResults_,
+                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                    email_);
+  WriteLn(""<<resultStr_);
+  resultStr_