--- deliantra/Deliantra-Client/DC/UI.pm	2006/08/13 03:20:56	1.341
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/08/13 14:38:35	1.342
@@ -2980,7 +2980,7 @@
 sub set_tooltip_from {
    my ($self, $widget) = @_;
 
-   $widget->{tooltip} = CFPlus::Pod::as_label CFPlus::Pod::section tooltip => $1
+   $widget->{tooltip} = CFPlus::Pod::section_label tooltip => $1
       if $widget->{tooltip} =~ /^#(.*)$/;
 
    my $tooltip = $widget->{tooltip};