diff --git a/relational-schemas.cabal b/relational-schemas.cabal
--- a/relational-schemas.cabal
+++ b/relational-schemas.cabal
@@ -1,5 +1,5 @@
 name:                relational-schemas
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            RDBMSs' schema templates for relational-query
 description:         This package contains some RDBMSs' schema structure definitions.
                      Supported RDBMS schemas are below:
diff --git a/src/Database/Relational/Schema/SQLServer.hs b/src/Database/Relational/Schema/SQLServer.hs
--- a/src/Database/Relational/Schema/SQLServer.hs
+++ b/src/Database/Relational/Schema/SQLServer.hs
@@ -20,7 +20,7 @@
 import Database.Record.Instances ()
 import Database.Relational.Query (Query, Relation, PlaceHolders, Projection, Flat,
                                   (!), (.=.), (><), asc, relationalQuery, just, placeholder',
-                                  query, relation', unsafeShowSql, unsafeShowSqlProjection,
+                                  query, relation', unsafeShowSql,
                                   unsafeProjectSql, wheres)
 import Database.Relational.Schema.SQLServerSyscat.Columns
 import Database.Relational.Schema.SQLServerSyscat.Indexes
@@ -99,11 +99,11 @@
     wheres $ cols ! Columns.userTypeId' .=. typs ! Types.userTypeId'
     wheres $ cols ! Columns.objectId'   .=. oid
     asc $ cols ! Columns.columnId'
-    return   (params, cols >< typs >< sqlsrvSchemaName (typs ! Types.schemaId'))
+    return   (params, cols >< typs >< sqlsrvSchemaName (typs ! Types.schemaId' :: Projection Flat Int32))
   where
     (params, oid) = sqlsrvOidPlaceHolder
     sqlsrvSchemaName i = unsafeProjectSql $
-        "SCHEMA_NAME(" ++ unsafeShowSqlProjection i ++ ")"
+        "SCHEMA_NAME(" ++ unsafeShowSql i ++ ")"
 
 columnTypeQuerySQL :: Query (String, String) ((Columns, Types), String)
 columnTypeQuerySQL =  relationalQuery columnTypeRelation