--- a/uh_parser/RaptorWarning.pm	Mon Apr 12 13:26:38 2010 +0100
+++ b/uh_parser/RaptorWarning.pm	Mon Apr 12 14:47:03 2010 +0100
@@ -122,7 +122,7 @@
 	my $package = '';
 	# if bldinf attribute is not available then heuristically attempt to determine the package
 	if (!$raptor_warning_info->{bldinf} &&
-		$characters =~ m,.*?(([/\\]sf)?[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s)
+		$characters =~ m,.*?([/\\]sf[/\\](os|mw|app|tools|ostools|adaptation)[/\\][^/^\\]*[/\\]),s)
 	{
 		$raptor_warning_info->{bldinf} = "$1... (guessed)";
 	}