diff --git a/fcl/db/fields.inc b/fcl/db/fields.inc
index dfc13cf57b..b5d71d17b8 100644
--- a/fcl/db/fields.inc
+++ b/fcl/db/fields.inc
@@ -2075,7 +2075,7 @@ end;
 function TBCDField.GetDataSize: Word;
 
 begin
-  result := sizeof(currency);
+  result := sizeof(system.currency);
 end;
 
 function TBCDField.GetDefaultWidth: Longint;
diff --git a/fcl/db/sqldb/postgres/pqconnection.pp b/fcl/db/sqldb/postgres/pqconnection.pp
index 97c76088dc..b8127e4e3e 100644
--- a/fcl/db/sqldb/postgres/pqconnection.pp
+++ b/fcl/db/sqldb/postgres/pqconnection.pp
@@ -405,7 +405,11 @@ begin
         s := s + '(';
         for i := 0 to AParams.count-1 do if TypeStrings[AParams[i].DataType] <> 'Unknown' then
           s := s + TypeStrings[AParams[i].DataType] + ','
-        else DatabaseErrorFmt(SUnsupportedParameter,[Fieldtypenames[AParams[i].DataType]],self);
+        else
+          begin
+          if AParams[i].DataType = ftUnknown then DatabaseErrorFmt(SUnknownParamFieldType,[AParams[i].Name],self)
+            else DatabaseErrorFmt(SUnsupportedParameter,[Fieldtypenames[AParams[i].DataType]],self);
+          end;
         s[length(s)] := ')';
         buf := AParams.ParseSQL(buf,false,psPostgreSQL);
         end;