--- a/tools/pas2c/Pas2C.hs	Fri Feb 07 15:44:27 2014 +0400
+++ b/tools/pas2c/Pas2C.hs	Fri Feb 07 22:42:57 2014 +0400
@@ -1200,6 +1200,7 @@
         ("pchar", BTString) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "_pchar" $ BTPointerTo BTChar))
         ("pchar", BTAString) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "_pcharA" $ BTPointerTo BTChar))
         ("shortstring", BTPointerTo _) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "pchar2str" $ BTString))
+        ("ansistring", BTString) -> ref2C $ FunCall [expr] (SimpleReference (Identifier "str2astr" $ BTAString))
         (a, _) -> do
             e <- expr2C expr
             t <- id2C IOLookup t'