Functional method in object expression throws an error

Defining a functional method in an object expression gives a "Missing
value: f in environment:" message.

component Main
export Executable

run(args) = do
    o = object
        f(self) = ()
    end
end

end