diff --git a/src/macports1.0/macports_util.tcl b/src/macports1.0/macports_util.tcl
index 27b809977..d54bec217 100644
--- a/src/macports1.0/macports_util.tcl
+++ b/src/macports1.0/macports_util.tcl
@@ -140,15 +140,6 @@ proc ldindex {varName args} {
     return $item
 }
 
-# lpush varName ?value ...?
-# Appends list elements onto a variable
-# If varName does not exist then it is created
-# really just an alias for lappend
-proc lpush {varName args} {
-    upvar 1 $varName var
-    lappend var {*}$args
-}
-
 
 # lunshift varName ?value ...?
 # Prepends list elements onto a variable
diff --git a/src/macports1.0/tests/macports_util.test b/src/macports1.0/tests/macports_util.test
index 9916e05b3..bc2e20303 100644
--- a/src/macports1.0/tests/macports_util.test
+++ b/src/macports1.0/tests/macports_util.test
@@ -80,23 +80,6 @@ test ldindex {
 } -result "ldindex successful."
 
 
-test lpush {
-    Lpush unit test.
-} -body {
-    set list {0 1}
-    if {[lpush list 2] != {0 1 2}} {
-        return "FAIL: element not appended"
-    }
-    if {[lpush list 3 4] != {0 1 2 3 4}} {
-        return "FAIL: multiple elements not appended"
-    }
-    if {[lpush list1 0] != 0} {
-        return "FAIL: list not created"
-    }
-    return "lpop successful."
-} -result "lpop successful."
-
-
 test lunshift {
     Lunshift unit test.
 } -body {
diff --git a/src/port1.0/portdestroot.tcl b/src/port1.0/portdestroot.tcl
index f97bb444b..6bd4baa7a 100644
--- a/src/port1.0/portdestroot.tcl
+++ b/src/port1.0/portdestroot.tcl
@@ -385,7 +385,7 @@ proc portdestroot::destroot_finish {args} {
                     }
                 } elseif {[string equal -length [expr {[string length $dfile] + 1}] $dfile/ $prefix]} {
                     # we've found a subpath of our prefix
-                    lpush pathsToCheck $dfile
+                    lappend pathsToCheck $dfile
                 } else {
                     set dir_allowed no
                     # these files are (at least potentially) outside of the prefix
@@ -397,7 +397,7 @@ proc portdestroot::destroot_finish {args} {
                         }
                     }
                     if {$dir_allowed} {
-                        lpush pathsToCheck $dfile
+                        lappend pathsToCheck $dfile
                     } else {
                         # not a prefix of an allowed path, so it's either the path itself or a violation
                         switch -- $dfile \