diff --git a/examples/cocoa-pdfkit.factor b/examples/cocoa-pdfkit.factor
index 28ab3c57f5..ba7fd40788 100644
--- a/examples/cocoa-pdfkit.factor
+++ b/examples/cocoa-pdfkit.factor
@@ -6,7 +6,7 @@ objc-NSObject objc-NSWindow objc-PDFDocument objc-PDFView ;
 
 : <PDFDocument> ( url -- document )
     <CFURL> [autorelease]
-    PDFDocument swap [initWithURL:] [autorelease] ;
+    PDFDocument [alloc] swap [initWithURL:] [autorelease] ;
 
 : <PDFView> ( document -- view )
     PDFView [alloc] 0 0 500 500 <NSRect> [initWithFrame:]
diff --git a/library/cocoa/application-utils.factor b/library/cocoa/application-utils.factor
index dedea28d0a..48bf488b97 100644
--- a/library/cocoa/application-utils.factor
+++ b/library/cocoa/application-utils.factor
@@ -25,7 +25,6 @@ objc-NSAutoreleasePool objc-NSObject threads ;
 
 : event-loop ( -- )
     \ NSApplication get expired? [
-        drop
         NSApplication [sharedApplication]
         \ NSApplication set-global
         [ (event-loop) ] in-thread