declare class Database attr Dict meth init Dict<-{NewDictionary} end meth get(Key $) @Dict.Key end meth put(Key Val) @Dict.Key := Val end end declare DB = {New Database init} {DB get(foo _)} %***************** Error: illegal field selection *************** %** %** In statement: <Dictionary> . foo = _<optimized> %** In statement: {<P/3 Value.'.'> <Dictionary> foo _} %** %** Call Stack: %** procedure 'Database,get/fast' in file ... %**--------------------------------------------------------------