--- port_cutleaves.orig	2010-05-15 22:42:59.000000000 -0700
+++ port_cutleaves	2010-05-15 22:43:09.000000000 -0700
@@ -2,9 +2,10 @@
 # -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
 # \
 exec /usr/bin/tclsh "$0" "$@"
-# $Id: port_cutleaves 67613 2010-05-15 05:51:51Z perry@macports.org $
+# $Id: port_cutleaves.in 67626 2010-05-15 08:36:52Z jmr@macports.org $
 
 set VERSION 0.1.3
+set prefix "@prefix@"
 
 # - Procedures ---------------------------------------------------------------
 
@@ -301,8 +302,8 @@
 }
 
 if {$option(t) eq ""} {
-    if {[catch {source /Library/Tcl/macports1.0/macports_fastload.tcl} result]
-        && [catch {source /opt/local/share/macports/Tcl/macports1.0/macports_fastload.tcl} result]} {
+    if {[catch {source ${prefix}/share/macports/Tcl/macports1.0/macports_fastload.tcl} result]
+        && [catch {source /Library/Tcl/macports1.0/macports_fastload.tcl} result]} {
         puts stderr "Error: $result"
         exit 1
     }
