Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 29c8edd40cadb8bf13b349130b67e65caa2635ff)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision b9ea25507d6cf00d6587b917a0df909cc50115e8)
@@ -1152,5 +1152,5 @@
 
 proc ::TolInspector::FilterNameBlockMember { name } {
-  set st_reg [ regexp {(.+::)?(_)?(\.)?(.*)} $name => p1 p2 p3 p4 p5]
+  set st_reg [ regexp {(.+::)?(_)?(\.)?(.*)} $name => p1 p2 p3 p4]
   if { !$st_reg } {
     list -show 1 -fcolor "black" -name $name
@@ -1162,5 +1162,5 @@
       } {
         # es un miembro de solo lectura
-        list -show 1 -fcolor "gray50" -name "_.$p5"
+        list -show 1 -fcolor "gray50" -name "_.$p4"
       }
     } else {