Upgrade function broken in MacPorts 1.8.0

[ogoell@…]

$ which port
> /usr/local/bin/port
$ port --version
MacPorts 1.8.0
Entering interactive mode... ("help" for help, "quit" to quit)

$ sudo port -fv upgrade outdated
wrong # args: should be "macports::upgrade portname dspec globalvarlist variationslist optionslist ?depscachename?"
    while executing
"macports::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 4)
    invoked from within
"$action_proc $action $portlist [array get global_options]"
    (procedure "process_cmd" line 58)
    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 "/usr/local/bin/port" line 2661)