Exceptions as Errors

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 ...
%**--------------------------------------------------------------