Apparently character sets are not supported in domains

comparison.pas

@@ -474,9 +474,12 @@ begin
         // Check constraint, if any:
         if CheckConstraint <> '' then
           Line:= Line + ' ' + CheckConstraint;
-        // Character set for text types, if any:
+
+        { Character sets not supported for domains apparently at
+        least not in Firebird 2.5
         if CharacterSet <> '' then
           Line:= Line + ' CHARACTER SET ' +  CharacterSet;
+        }
         // Collation for text types, if any:
         if Collation <> '' then
           Line:= Line + ' COLLATE ' +  Collation;

main.pas

@@ -1266,7 +1266,7 @@ begin
     begin
       if (Pos('char', LowerCase(fmNewDomain.cbType.Text)) > 0) or
         (LowerCase(fmNewDomain.cbType.Text)='cstring') then
-        meQuery.Lines.Add('default ' + QuotedStr(fmNewDomain.edDefault.Text))
+        meQuery.Lines.Add('DEFAULT ' + QuotedStr(fmNewDomain.edDefault.Text))
       else
         meQuery.Lines.Add('DEFAULT ' + fmNewDomain.edDefault.Text);
     end;

scriptdb.pas

@@ -189,9 +189,11 @@ begin
     // Check constraint, if any:
     if CheckConstraint <> '' then
       List[i]:= List[i] + ' ' + CheckConstraint;
-    // Character set for text types, if any
+
+    { Character set is apparently not supported for domains, at least in FB2.5
     if CharacterSet <> '' then
       List[i]:= List[i] + ' CHARACTER SET ' + CharacterSet;
+    }
     // Collation for text types, if any:
     if Collation <> '' then
       List[i]:= List[i] + ' COLLATE ' +  Collation;