Index: tol_tests/tol/Bugzilla/bug_000741/file.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_000741/file.tol	(revision 83f123cccb08febed1d34c8393462cc541d734e1)
+++ tol_tests/tol/Bugzilla/bug_000741/file.tol	(revision 83f123cccb08febed1d34c8393462cc541d734e1)
@@ -0,0 +1,48 @@
+
+NameBlock Proj = [[
+  Class MiClase {
+    Real a;
+    Static MiClase New.1(Real valor) {
+      Proj::MiClase new = [[
+        Real a = valor
+      ]]
+    };
+    Static MiClase New.2(Real valor) {
+      MiClase new = [[
+        Real a = valor
+      ]]
+    }
+  }
+]];
+
+
+Proj::MiClase ej.1 = Proj::MiClase::New.1(3);
+
+Proj::MiClase ej.2 = Proj::MiClase::New.2(3);
+
+//////////////////////////////////////////////////////////////////////////////
+// [2] Creación en un bucle:
+
+
+Set aux.2.1 = For(1, 10, NameBlock fun_aux.2.1(Real i){
+  Proj::MiClase::New.1(i)
+});
+
+Set aux.2.2 = For(1, 10, Proj::MiClase fun_aux.2.2(Real i){
+  Proj::MiClase::New.1(i)
+});
+
+
+Set aux.3.1 = EvalSet(aux.2.1, Text fun_aux.3.1(NameBlock c) {
+  ClassOf(c)
+});
+
+Set aux.3.2 = EvalSet(aux.2.1, Text fun_aux.3.2(Proj::MiClase c) {
+  ClassOf(c)
+});
+
+
+// La clase del objeto dice ser "MiClase". ¿Debería decir "Proj::MiClase"?.
+
+//////////////////////////////////////////////////////////////////////////////
+
Index: tol_tests/tol/Bugzilla/bug_000741/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_000741/test.tol	(revision 83f123cccb08febed1d34c8393462cc541d734e1)
+++ tol_tests/tol/Bugzilla/bug_000741/test.tol	(revision 83f123cccb08febed1d34c8393462cc541d734e1)
@@ -0,0 +1,37 @@
+/* -*- mode: C++ -*- */
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a resolved bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary
+  Real bugNum_ =  741;
+  Text email_ = "vdebuen@tol-project.org"; 
+  Text summary_ = 
+  "Working with Classes defined in NameBlocks";
+  Text link_ = GetTolBugzillaLink(bugNum_);
+
+  //Write here the initial test TOL code if needed
+  Real numErr0 = Copy(NError);
+  Real numWar0 = Copy(NWarning);
+    
+  Set Include("file.tol");
+    
+  Real numErr1 = Copy(NError);
+  Real numWar1 = Copy(NWarning);
+
+  Set partialResults_ = [[numErr0, numErr1]];
+
+//This is a messure of the success of the test 
+  Real quality_ = And(numErr1 == numErr0, 
+                      numWar1 == numWar0);
+
+//Return the results 
+  Set resultStr_ = strTestStatus(summary_, link_, quality_,
+                    "Partial results = "<<partialResults_,
+                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                    email_);
+  WriteLn(""<<resultStr_);
+  resultStr_;
+
+/* */