Merged revisions 901 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@902 -

fcl/db/db.pp

@@ -1741,7 +1741,7 @@ const
   DefaultFieldClasses : Array [TFieldType] of TFieldClass =
     ( { ftUnknown} Tfield,
       { ftString} TStringField,
-      { ftSmallint} TLongIntField,
+      { ftSmallint} TSmallIntField,
       { ftInteger} TLongintField,
       { ftWord} TLongintField,
       { ftBoolean} TBooleanField,