diff -urN intltool-old/intltool-extract.in.in intltool/intltool-extract.in.in
--- intltool-old/intltool-extract.in.in	2005-08-01 11:34:42.000000000 +0500
+++ intltool/intltool-extract.in.in	2005-11-05 23:59:40.000000000 +0500
@@ -485,10 +485,12 @@
 sub intltool_tree_comment
 {
     my $expat = shift;
-    my $data  = shift;
+    my $data  = $expat->original_string();
     my $clist = $expat->{Curlist};
     my $pos   = $#$clist;
 
+    $data =~ s/^<!--//s;
+    $data =~ s/-->$//s;
     push @$clist, 1 => $data;
 }
 
