search -get does not return correct fields

[bovine]

Using search -get with an explicitly specified -fields does not always return the requested fields.

#!/usr/local/bin/tclsh8.5

package require speedtable

CExtension cowseye 1.0 {
    CTable Infield {
        varstring alpha
        varstring beta
        varstring delta
        varstring gamma
    }
}

package require Cowseye


Infield create infield

infield store [list alpha alfa beta bravo delta delta gamma golf]

infield search -fields {beta gamma} -get foo -code {
    puts $foo
}

Running this should display "bravo golf", but i'm getting "alfa bravo" from it right now.

[lehenbauer]

Fixed, tested and pushed. The test above succeeds with the latest code. Standard tests have been updated to detect this problem, should it recur.

[bovine]

The fix seems to work. I'm getting the expected results now.