Index: l_tests/tol/Bugzilla/bug_001478/check.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001478/check.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ 	(revision )
@@ -1,13 +1,0 @@
-Real SetAA( NameBlock args )
-{
-  Real 1
-};
-
-Real SQ_Real( Real x )
-{
-  Real x * x
-};
-
-Real SetAA( [[ Code CMD = SQ_Real ]] );
-
-Real SQ_Real( 1 );
Index: tol_tests/tol/Bugzilla/bug_001478/check1.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001478/check1.tol	(revision 61d21616dd85bd59840f05746780389496b4087f)
+++ tol_tests/tol/Bugzilla/bug_001478/check1.tol	(revision 61d21616dd85bd59840f05746780389496b4087f)
@@ -0,0 +1,13 @@
+Real SetAA( NameBlock args )
+{
+  Real 1
+};
+
+Real SQ_Real( Real x )
+{
+  Real x * x
+};
+
+Real SetAA( [[ Code CMD = SQ_Real ]] );
+
+Real SQ_Real( 1 );
Index: tol_tests/tol/Bugzilla/bug_001478/check2.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001478/check2.tol	(revision 61d21616dd85bd59840f05746780389496b4087f)
+++ tol_tests/tol/Bugzilla/bug_001478/check2.tol	(revision 61d21616dd85bd59840f05746780389496b4087f)
@@ -0,0 +1,23 @@
+#Require GuiTools;
+
+Real {
+  Real RealSquare( Real x, Set args )
+  {
+    Real sqX = x*x;
+    WriteLn( "El cuadrado de " << x << " es " << sqX );
+    sqX
+  };
+  
+  // con esto se genera el segmentation fault 
+  NameBlock auxiliar = [[
+    Code RealSquare
+  ]];
+  
+  Real GuiTools::MenuManager::defineMenuCommand("Real", 
+    [[ Text name = "Real_SQ",
+       Text label = "Cuadrado del Real",
+       Real flagGroup = 0,
+       Code CmdInvoke = RealSquare ]])
+};
+
+Real GuiTools::MenuManager::invokeEntry( "Real_SQ", [[ 3 ]] );
Index: tol_tests/tol/Bugzilla/bug_001478/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001478/test.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ tol_tests/tol/Bugzilla/bug_001478/test.tol	(revision 61d21616dd85bd59840f05746780389496b4087f)
@@ -13,5 +13,7 @@
   Real numErr0 = Copy(NError);
 
-  Set partialResults_ = Include( "check.tol" );
+  Set check1 = Include( "check1.tol" );
+  Set check2 = Include( "check2.tol" );
+  Set partialResults_ = [[ check1, check2 ]];
 
 //This is a messure of the success of the test