Index: tolbase/lib/toltk/MenuManager.tcl
===================================================================
--- tolbase/lib/toltk/MenuManager.tcl	(revision 3a5bf7bcc3922bbb19580f3cfbf39f7d3dfc3a9f)
+++ tolbase/lib/toltk/MenuManager.tcl	(revision b5ff1e8bef54a9052e14e9010f92dc5edbc19bf6)
@@ -204,13 +204,11 @@
 
 proc MenuManager::insertEntries { menuWidget objSelection entriesInfo } {
-  set multiple [ llength $objSelection ]
+  set multiple [ expr { [ llength $objSelection ] > 1 } ]
   foreach entryInfo $entriesInfo {
     foreach {name label image translate group} $entryInfo break
-    if { !$group && $multiple } continue
+    if { $group ^ $multiple } continue
     set mm [ createSubMenuIfNeeded $menuWidget $name ]
     set state [ checkEntryState $name $objSelection $group ]
-    puts "state for $name = $state"
     set entryLabel [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
-    puts "definiendo entry $entryLabel en $mm"
     $mm add command -label $entryLabel \
         -command [ list MenuManager::invokeCommand $name $objSelection $group ] \
@@ -234,5 +232,5 @@
         $menuType delete 0 end
       }
-      foreach {label translate} $typesSelected(labelInfo,$type) break  
+      foreach {label image translate} $typesSelected(labelInfo,$type) break  
       set labelCascade [ expr { $translate ? [ msgcat::mc $label ] : $label } ]
       $menuWidget add cascade -label $labelCascade -menu $menuType