diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
index 9ca06dab34..f3cb8ec798 100644
--- a/basis/cocoa/apple-script/apple-script.factor
+++ b/basis/cocoa/apple-script/apple-script.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: cocoa cocoa.application cocoa.classes kernel ;
+USING: cocoa cocoa.application cocoa.classes kernel parser
+multiline words ;
 
 IN: cocoa.apple-script
 
@@ -9,3 +10,7 @@ IN: cocoa.apple-script
     [ NSAppleScript -> alloc ] dip
     <NSString> -> initWithSource: -> autorelease
     f -> executeAndReturnError: drop ;
+
+SYNTAX: APPLESCRIPT:
+    scan-new-word ";APPLESCRIPT" parse-multiline-string
+    [ run-apple-script ] curry ( -- ) define-declared ;