diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
new file mode 100644
index 0000000000..9ca06dab34
--- /dev/null
+++ b/basis/cocoa/apple-script/apple-script.factor
@@ -0,0 +1,11 @@
+! Copyright (C) 2013 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: cocoa cocoa.application cocoa.classes kernel ;
+
+IN: cocoa.apple-script
+
+: run-apple-script ( str -- )
+    [ NSAppleScript -> alloc ] dip
+    <NSString> -> initWithSource: -> autorelease
+    f -> executeAndReturnError: drop ;
diff --git a/basis/cocoa/apple-script/platforms.txt b/basis/cocoa/apple-script/platforms.txt
new file mode 100644
index 0000000000..6e806f449e
--- /dev/null
+++ b/basis/cocoa/apple-script/platforms.txt
@@ -0,0 +1 @@
+macosx
diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor
index c90e238ede..6913035709 100644
--- a/basis/cocoa/cocoa.factor
+++ b/basis/cocoa/cocoa.factor
@@ -52,6 +52,7 @@ SYNTAX: IMPORT: scan-token [ ] import-objc-class ;
 [
     {
         "NSAlert"
+        "NSAppleScript"
         "NSApplication"
         "NSArray"
         "NSAutoreleasePool"