object wiz_who_called; static init() { if (!prototype(this_object())) destruct(this_object()); } wizcompile() { alarm(0,"docompile"); wiz_who_called=caller_object(); } static docompile() { object o; o=compile_object("/obj/wiz"); if (!wiz_who_called) return; if (o) call_other(wiz_who_called,"listen","@load: "+otoa(o)+" compiled\n"); else call_other(wiz_who_called,"listen","@load: failed\n"); }