Index: tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol
===================================================================
--- tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol	(revision d3aa758e97eae5eb0e70c6357a18d73fd6c1c683)
+++ tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol	(revision a0a69067bee5a851e351ee295726d723afbe003c)
@@ -201,6 +201,4 @@
   Text ResName = segment::Get.Name(0)+"::Noise";
   Real nEqu = segment::Get.Equation.Size(0);
-  WriteLn(_MID+"Escribiendo ecuaciones para el segmento "<<
-          ResName<<"["<<nEqu<<"]");
   Real iE = 1;
   Real fefz = FunctionExist("Real", "segment::Get.Param.ForceZero");
@@ -234,5 +232,4 @@
 {
   NameBlock handler = segmentOrFullModel::Get.Constraints.Handler(0);
-  WriteLn(_MID+"Escribiendo restricciones de orden ");
   Set For(1, handler::Get.OrderRelation.Size(0), Real(Real r) 
   {
@@ -241,5 +238,4 @@
     Real 0
   });
-  WriteLn(_MID+"Escribiendo restricciones lineales generales ");
   Set For(1, handler::Get.GenericConstraint.Size(0), Real(Real r) 
   {
@@ -262,5 +258,4 @@
     Real 0
   });
-  WriteLn(_MID+"Escribiendo restricciones lineales explicitas ");
   Set For(1, handler::Get.ExplicitConstraint.Size(0), Real(Real r) 
   {
@@ -276,7 +271,4 @@
 ///////////////////////////////////////////////////////////////////////////
 {
-  //Escribo valores iniciales de los parametros. Se asume que cada
-  //segmento es "owner" de los parametros que solo aparecen en el y que
-  //cada parametro aparece en algun segmento que lo posee.
   WriteLn(_MID+"Writing definition of main linear block parameters");
   Real FPutText(fileHandler,