diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 80aa6cd026..2c983c711f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+20000425-15:05 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/compiler/hbpcode.c
+	*fixed length of HB_P_PUSHDOUBLE pcode
+
 20000425-12:40 GMT+1 Ryszard Glab <rglab@imid.med.pl>
 
     *include/hbcomp.h
diff --git a/harbour/source/compiler/hbpcode.c b/harbour/source/compiler/hbpcode.c
index ddb2322b5c..0b594413da 100644
--- a/harbour/source/compiler/hbpcode.c
+++ b/harbour/source/compiler/hbpcode.c
@@ -134,7 +134,7 @@ static BYTE s_pcode_len[] = {
    3,        /* HB_P_PUSHMEMVAR,           */
    3,        /* HB_P_PUSHMEMVARREF,        */
    1,        /* HB_P_PUSHNIL,              */
-   1+sizeof(double),        /* HB_P_PUSHDOUBLE,           */
+   2+sizeof(double),        /* HB_P_PUSHDOUBLE,           */
    1,        /* HB_P_PUSHSELF,             */
    3,        /* HB_P_PUSHSTATIC,           */
    3,        /* HB_P_PUSHSTATICREF,        */