--- a/code_churn/fbf_churn.pl	Wed Sep 16 12:00:21 2009 +0100
+++ b/code_churn/fbf_churn.pl	Thu Sep 17 11:40:59 2009 +0100
@@ -23,6 +23,11 @@
 my $churn_output_temp = "$FindBin::Bin\\fbf_churn_output";
 mkdir $churn_output_temp;
 
+my $path = $FindBin::Bin;
+$path =~ s/\//\\/g;
+my $clone_packages = "$path\\..\\clone_packages\\clone_all_packages.pl";
+
+
 sub Usage($)
   {
   my ($msg) = @_;
@@ -142,7 +147,7 @@
 
 #TO_DO: Locate clone_all_packages relative to the location of this script.
 #TO_DO: Remove references to absolute paths, change to relative paths.
-do_system("clone_all_packages.pl",@verboseopt,"-mirror","-filter","$licence.*$codeline.*$filter",@packagelistopts,"-exec","--",
+do_system($clone_packages,@verboseopt,"-mirror","-filter","$licence.*$codeline.*$filter",@packagelistopts,"-exec","--",
    "hg","--config","\"extensions.hgext.extdiff=\"","extdiff","-p",$churn_core,"-o",$churn_output_temp,
    "-r","$old","-r","$new_rev");