diff --git a/compiler/aasm.pas b/compiler/aasm.pas
index 0afd25e641..c90180aa49 100644
--- a/compiler/aasm.pas
+++ b/compiler/aasm.pas
@@ -226,7 +226,7 @@ unit aasm;
        { generates a double (64 bit real) }
        pai_real_64bit = ^tai_real_64bit;
        tai_real_64bit = object(tai)
-          value : ts80real;
+          value : ts64real;
           constructor init(_value : ts64real);
        end;
 
@@ -984,7 +984,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.44  1999-05-12 00:19:34  peter
+  Revision 1.45  1999-05-20 22:18:51  pierre
+   * fix from Peter for double bug reported 20/05/1999
+
+  Revision 1.44  1999/05/12 00:19:34  peter
     * removed R_DEFAULT_SEG
     * uniform float names