Unable to compile slot init-expression

[BarAgent]

OD fails to compile the following slot:

define class <test> (<object>)
   slot stringifier :: <function> = curry(format-to-string, "%s\n");
end class;

The error it gives is something along the lines of FAILED TO FIND &t2 in ENV-[ENV][] of {<&method>}.

It successfully compiles the near-equivalent:

define class <test> (<object>)
   slot stringifier :: <function>, init-value: curry(format-to-string, "%s\n");
end class;