Modified: trunk/base/src/macports1.0/macports_dlist.tcl (119654 => 119655)

--- trunk/base/src/macports1.0/macports_dlist.tcl	2014-05-03 02:03:03 UTC (rev 119654)
+++ trunk/base/src/macports1.0/macports_dlist.tcl	2014-05-03 02:05:04 UTC (rev 119655)
@@ -412,7 +412,7 @@
 proc ditem_contains {ditem key args} {
 	variable $ditem
 	if {[llength $args] == 0} {
-		return [info exists [subst $ditem]($key)]
+		return [info exists [set ditem]($key)]
 	} else {
 		set x [lindex [array get $ditem $key] 1]
 		if {[llength $x] > 0 && [lsearch -exact $x [lindex $args 0]] != -1} {