Modified: trunk/base/src/macports1.0/macports.tcl (117455 => 117456)

--- trunk/base/src/macports1.0/macports.tcl	2014-02-27 12:45:50 UTC (rev 117455)
+++ trunk/base/src/macports1.0/macports.tcl	2014-02-27 15:25:46 UTC (rev 117456)
@@ -1363,12 +1363,12 @@
     }
 
     foreach {opt val} $options {
-        $workername eval [list set user_options($opt) $val]
-        $workername eval [list set $opt $val]
+        $workername eval set user_options($opt) $val
+        $workername eval set $opt $val
     }
 
     foreach {var val} $variations {
-        $workername eval [list set variations($var) $val]
+        $workername eval set variations($var) $val
     }
 }
 
@@ -1734,7 +1734,7 @@
         lappend pgdirlist [file join ${registry.path} registry portgroups [$pg sha256]-[$pg size]]
     }
     if {$pgdirlist ne {}} {
-        lappend options _portgroup_search_dirs $pgdirlist
+        lappend options _portgroup_search_dirs [list $pgdirlist]
     }
 
     return [mportopen file://${portfile_dir}/ $options $variations]