diff --git a/src/monkey/mssql.lisp b/src/monkey/mssql.lisp
index 13bfea6..a80d667 100644
--- a/src/monkey/mssql.lisp
+++ b/src/monkey/mssql.lisp
@@ -81,7 +81,7 @@
   (let ((syb-type (foreign-enum-keyword '%syb-value-type type)))
     (case syb-type
       ;; we accept emtpy string (len is 0)
-      ((:syb-char :syb-varchar :syb-text)
+      ((:syb-char :syb-varchar :syb-text :syb-msxml)
        (foreign-string-to-lisp data :count len))
 
       (otherwise
diff --git a/src/sources/mssql/mssql-cast-rules.lisp b/src/sources/mssql/mssql-cast-rules.lisp
index 1de799e..52197ce 100644
--- a/src/sources/mssql/mssql-cast-rules.lisp
+++ b/src/sources/mssql/mssql-cast-rules.lisp
@@ -10,7 +10,7 @@
     (:source (:type "varchar")   :target (:type "text" :drop-typemod t))
     (:source (:type "nvarchar")  :target (:type "text" :drop-typemod t))
     (:source (:type "ntext")     :target (:type "text" :drop-typemod t))
-    (:source (:type "xml")       :target (:type "text" :drop-typemod t))
+    (:source (:type "xml")       :target (:type "xml" :drop-typemod t))
 
     (:source (:type "int" :auto-increment t)
              :target (:type "bigserial" :drop-default t))