Index: tolbase/lib/toltk/ImageManager.tcl
===================================================================
--- tolbase/lib/toltk/ImageManager.tcl	(revision a363f08b58d785c89907f72f3c69a416c73adc60)
+++ tolbase/lib/toltk/ImageManager.tcl	(revision 507bd60ba56b36e687829d0c181d05bfef03801b)
@@ -8,5 +8,6 @@
   set tolExpr [ string map [ list %N $imageName %RV $rvar ] {
     Text %RV = {
-      Real test = ObjectExist( "Code", "GuiTools::ImageManager::getImageResourceId" );
+      Real test = ObjectExist( "Code", 
+                               "GuiTools::ImageManager::getImageResourceId" );
       Text If( test, GuiTools::ImageManager::getImageResourceId( "%N" ), "" )
     }
@@ -23,12 +24,13 @@
   set tolExpr [ string map [ list %A $objAddress %RV $rvar ] {
     Text %RV = {
-      Real test = ObjectExist( "Code", "GuiTools::ImageManager::getIconForInstance" );
-      // obtengo el nombre del imagen
-      Text imageName = If( test, {
-                           NameBlock obj = GetObjectFromAddress( "%A" );
-                           Text GuiTools::ImageManager::getIconForInstance( obj )
-                          }, "" );
-      // obtengo el id del recurso que es el id de la imagen Tk
-      Text GuiTools::ImageManager::getImageResourceId( imageName )
+      Real test = ObjectExist( "Code", 
+                               "GuiTools::ImageManager::getIconForInstance" );
+      Text If( test, {
+        NameBlock obj = GetObjectFromAddress( "%A" );
+        // obtengo el nombre del imagen
+        Text imageName = GuiTools::ImageManager::getIconForInstance( obj );
+        // obtengo el id del recurso que es el id de la imagen Tk
+        Text GuiTools::ImageManager::getImageResourceId( imageName )
+      }, "" )
     }
   } ]