Obtained-From: http://lxr.cvs.sourceforge.net/viewvc/lxr/lxr/lib/LXR/Common.pm?r1=1.63&r2=1.64&view=patch
Modified-As: two first hunks containing $Id$ were removed to allow clean patching

--- a/lib/LXR/Common.pm	2010/01/05 17:59:38	1.63
+++ b/lib/LXR/Common.pm	2010/01/15 23:23:20	1.64
@@ -633,6 +633,8 @@
 		return $config->sourcerootname . ' identifier search' . ($i ? ": $i" : '');
 	} elsif ($who eq 'search') {
 		my $s = $HTTP->{'param'}->{'string'};
+		$s =~ s/</&lt;/g;
+		$s =~ s/>/&gt;/g;
 		return $config->sourcerootname . ' general search' . ($s ? ": $s" : '');
 	}
 }
