diff --git a/wst/trunk/imp_utils.pas b/wst/trunk/imp_utils.pas
index 996c863eb..266a98f0a 100644
--- a/wst/trunk/imp_utils.pas
+++ b/wst/trunk/imp_utils.pas
@@ -143,13 +143,19 @@ function wst_FormatFloat(
 var
   s, frmt : string;
   prcsn : Integer;
+  decimal : Boolean;
 {$IFNDEF HAS_FORMAT_SETTINGS}
   i : PtrInt;
 {$ENDIF HAS_FORMAT_SETTINGS}
 begin
+  decimal := False;
   case GetTypeData(ATypeInfo)^.FloatType Of
+    ftCurr      :
+      begin
+        decimal := True;
+        frmt := '##############0.####';//15.4
+      end;
     ftSingle,
-    ftCurr,
     ftComp      : prcsn := 7;
     ftDouble,
     ftExtended  :
@@ -163,7 +169,8 @@ begin
     else
       prcsn := 7;
   end;
-  frmt := '#.' + StringOfChar('#',prcsn) + 'E-0';
+  if not decimal then
+    frmt := '#.' + StringOfChar('#',prcsn) + 'E-0';
 {$IFDEF HAS_FORMAT_SETTINGS}
   s := FormatFloat(frmt,AData,wst_FormatSettings);
 {$ELSE}
diff --git a/wst/trunk/ws_helper/pascal_parser_intf.pas b/wst/trunk/ws_helper/pascal_parser_intf.pas
index 9ad7c1462..ee4dac6ef 100644
--- a/wst/trunk/ws_helper/pascal_parser_intf.pas
+++ b/wst/trunk/ws_helper/pascal_parser_intf.pas
@@ -277,7 +277,7 @@ const
           ('Qword', 'TComplexInt64UContentRemotable', 'unsignedLong'),
           ('Single', 'TComplexFloatSingleContentRemotable', 'float'),
           ('Double', 'TComplexFloatDoubleContentRemotable', 'double'),
-          ('Extended', 'TComplexFloatExtendedContentRemotable', 'decimal')
+          ('Extended', 'TComplexFloatExtendedContentRemotable', 'double')
         );
    BOXED_TYPES_COUNT = 2;
      BOXED_TYPES : Array[0..Pred(BOXED_TYPES_COUNT)] Of array[0..2] of string = (