: objc-error ( error -- ) die ;
-[ [ die ] 19 setenv ] "cocoa.application" add-init-hook
+[ [ die ] 19 setenv ] "cocoa.application" add-startup-hook
H{ } clone \ pool [
global [
\ make-prepare-send reset-memoized
\ <selector> reset-memoized
-\ (send) def>> second clear-assoc
\ No newline at end of file
+\ (send) def>> second clear-assoc