*** TWiki.pm.~1~	Fri Nov 19 20:31:00 2004
--- TWiki.pm	Thu Nov  3 18:52:30 2005
***************
*** 2491,2496 ****
--- 2491,2497 ----
                  $urlPath = "$dispScriptUrlPath$dispViewPath$scriptSuffix/$webPath/$topicname";
              }
              if( ( $line ) && ( $level <= $depth ) ) {
+                 my $anchorText = $line;
                  $anchor = TWiki::Render::makeAnchorName( $line );
                  # cut TOC exclude '---+ heading !! exclude'
                  $line  =~ s/\s*$regex{headerPatternNoTOC}.+$//go;
***************
*** 2512,2518 ****
                  $line =~ s/([\s\(])($regex{wikiWordRegex})/$1<nop>$2/g;  # 'TopicName'
                  $line =~ s/([\s\(])($regex{abbrevRegex})/$1<nop>$2/g;    # 'TLA'
                  # create linked bullet item, using a relative link to anchor
!                 $line = "$tabs* <a href=\"$urlPath#$anchor\">$line</a>";
                  $result .= "\n$line";
              }
          }
--- 2513,2520 ----
                  $line =~ s/([\s\(])($regex{wikiWordRegex})/$1<nop>$2/g;  # 'TopicName'
                  $line =~ s/([\s\(])($regex{abbrevRegex})/$1<nop>$2/g;    # 'TLA'
                  # create linked bullet item, using a relative link to anchor
!                 my $tip = &TWiki::Render::linkToolTipInfo($_[2], $_[1], $anchorText);
!                 $line = "$tabs* <a href=\"$urlPath#$anchor\" $tip>$line</a>";
                  $result .= "\n$line";
              }
          }