bug in slocate after 1.3.1 upgrade

After the 1.3.1 upgrade,

sudo port -vuf upgrade slocate

fails at the very end with the following error message:


--->  Activating slocate 3.1_0
--->  Cleaning slocate
--->  Removing workpath for slocate
can't read "variant": no such variable
     while executing
"set oldvariant $variant"
     (procedure "darwinports::upgrade" line 200)
     invoked from within
"darwinports::upgrade $portname "port:$portname" [array get variations] 
[array get options]"
     ("uplevel" body line 9)
     invoked from within
"uplevel 1 $block"
     (procedure "foreachport" line 16)
     invoked from within
"foreachport $portlist {
                 # Merge global variations into the variations specified 
for this port
                 foreach { variation value } [array get global_variat..."
     (procedure "action_upgrade" line 3)
     invoked from within
"$action_proc $action $portlist [array get global_options]"
     (procedure "process_cmd" line 49)
     invoked from within
"process_cmd $remaining_args"
     invoked from within
"if { [llength $remaining_args] > 0 } {

         # If there are remaining arguments, process those as a command

         # Exit immediately, by default, unless we'r..."
     (file "/opt/local/bin/port" line 2565)


Although the bug is relatively harmless ("port installed slocate" shows 
the new version of the port as active, and the only consequence seems to 
be that the work directory is not removed at the end), I thought this 
might be worth reporting just in case it messes up with other ports.

Cheers,

Artemio