diff --git a/trimsp/TrimSPGUI/TrimSPGUI.pl b/trimsp/TrimSPGUI/TrimSPGUI.pl
index 52d0eb5..1083f44 100644
--- a/trimsp/TrimSPGUI/TrimSPGUI.pl
+++ b/trimsp/TrimSPGUI/TrimSPGUI.pl
@@ -1,6 +1,6 @@
 # Form implementation generated from reading ui file 'TrimSPGUI.ui'
 #
-# Created: Tue Mar 2 17:53:21 2010
+# Created: Mon Jun 7 14:34:19 2010
 #      by: The PerlQt User Interface Compiler (puic)
 #
 # WARNING! All changes made in this file will be lost!
@@ -2342,9 +2342,10 @@ sub PlotProfiles
     if ($filenames ne "" ) {
 #	my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
 #			"Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
-    
+	my $TrimPath = $ENV{'PERLLIB'};	
 # Now that we have the file list send it to root macro for plotting.
-	my $cmd='root -n -l "plotRge.C(\"'.$filenames.'\")"&';
+	my $cmd='root -n -l "'.$TrimPath.'/plotRge.C(\"'.$filenames.'\")"&';
+
 #	my $pid = open(FTO,"$cmd");
 #	my $pid = open(FTO,"$cmd 2>&1 |");
 #	print "PID=$pid\n";
diff --git a/trimsp/TrimSPGUI/TrimSPGUI.ui.h b/trimsp/TrimSPGUI/TrimSPGUI.ui.h
index 382cb11..15f71f0 100644
--- a/trimsp/TrimSPGUI/TrimSPGUI.ui.h
+++ b/trimsp/TrimSPGUI/TrimSPGUI.ui.h
@@ -624,9 +624,10 @@ void TrimSPGUI::PlotProfiles()
     if ($filenames ne "" ) {
 #	my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
 #			"Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
-    
+	my $TrimPath = $ENV{'PERLLIB'};	
 # Now that we have the file list send it to root macro for plotting.
-	my $cmd='root -n -l "plotRge.C(\"'.$filenames.'\")"&';
+	my $cmd='root -n -l "'.$TrimPath.'/plotRge.C(\"'.$filenames.'\")"&';
+
 #	my $pid = open(FTO,"$cmd");
 #	my $pid = open(FTO,"$cmd 2>&1 |");
 #	print "PID=$pid\n";