diff --git a/basis/core-graphics/core-graphics.factor b/basis/core-graphics/core-graphics.factor
index 78dc81ec67..a215e11d4f 100644
--- a/basis/core-graphics/core-graphics.factor
+++ b/basis/core-graphics/core-graphics.factor
@@ -56,4 +56,10 @@ FUNCTION: void CGContextSetRGBFillColor (
    CGFloat green,
    CGFloat blue,
    CGFloat alpha
+) ;
+
+FUNCTION: void CGContextSetTextPosition (
+   CGContextRef c,
+   CGFloat x,
+   CGFloat y
 ) ;
\ No newline at end of file
diff --git a/basis/core-text/authors.txt b/basis/core-text/authors.txt
new file mode 100644
index 0000000000..d4f5d6b3ae
--- /dev/null
+++ b/basis/core-text/authors.txt
@@ -0,0 +1 @@
+Slava Pestov
\ No newline at end of file
diff --git a/basis/core-text/core-text-tests.factor b/basis/core-text/core-text-tests.factor
new file mode 100644
index 0000000000..294f85abc5
--- /dev/null
+++ b/basis/core-text/core-text-tests.factor
@@ -0,0 +1,4 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: tools.test core-text ;
+IN: core-text.tests
diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
new file mode 100644
index 0000000000..42faa615bc
--- /dev/null
+++ b/basis/core-text/core-text.factor
@@ -0,0 +1,10 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.syntax core-foundation.attributed-strings ;
+IN: core-text
+
+TYPEDEF: void* CTLineRef
+
+FUNCTION: CTLineRef CTLineCreateWithAttributedString ( CFAttributedStringRef string ) ;
+
+FUNCTION: void CTLineDraw ( CTLineRef line, CGContextRef context ) ;
\ No newline at end of file