Index: tolbase/lib/toltk/MenuManager.tcl
===================================================================
--- tolbase/lib/toltk/MenuManager.tcl	(revision 01f6b2a5873c42d7ee7bda4ba6c6ab9348460db3)
+++ tolbase/lib/toltk/MenuManager.tcl	(revision 7b0030e4cb4ee21ed08619aa6b768c2aeab4b0a8)
@@ -166,6 +166,9 @@
   set mm $targetMenu
   set nn ""
+  set mapdot [ list . - ]
   foreach n [ lrange $path0 0 end-1 ] {
-    set mm0 ${mm}.mm$n
+    # evito el caracter . en el nombre de widget
+    set n0 [ string map $mapdot $n ]
+    set mm0 ${mm}.mm$n0
     if { [ winfo exists $mm0 ] } {
       $mm0 delete 0 end
@@ -215,6 +218,9 @@
   # un tipo
   if { [ llength $typesSelected(types) ] > 1 } {
+    set mapdot [ list . - ]
     foreach type $typesSelected(types) {
-      set menuType $menuWidget.mtype$type
+      # type puede contener . por eso hay que reemplazarlo
+      set type0 [ string map $mapdot $type ]
+      set menuType $menuWidget.mtype$type0
       if { ![ winfo exists $menuType ] } {
         menu $menuType -tearoff 0