--- a/cross-plat-dev-utils/get_baseline.pm	Wed May 12 09:52:26 2010 +0100
+++ b/cross-plat-dev-utils/get_baseline.pm	Thu May 13 08:38:18 2010 +0100
@@ -13,7 +13,7 @@
 
 use strict;
 use File::Spec;
-use set_epocroot;
+use places;
 
 sub trim($)
 {
@@ -25,9 +25,8 @@
 
 sub get_baseline()
 {
-	set_epocroot();
-	my $epocroot = $ENV{'EPOCROOT'};
-	my $baseline_txt = File::Spec->catfile("$epocroot","build","baseline.txt");
+	my $epocroot = get_epocroot();
+	my $baseline_txt = File::Spec->catfile(get_pkg_dir(),"baseline.txt");
 	open IN,"<$baseline_txt" or die $!;
 	my @lines = <IN>;
 	close IN;