diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index ba355546b0..a156d53722 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -454,7 +454,11 @@ asm
         ret
 .LHC_7:
       { set zero inside the object }
-        pushal
+{        pushal - crashes the 386 CPU }
+        pushl   %eax
+        pushl   %edi
+        pushl   %ecx
+
         cld
         movl    (%eax),%ecx
         movl    %esi,%edi
@@ -467,7 +471,9 @@ asm
         movl    %ebx,%ecx
         rep
         stosb
-        popal
+        popl    %ecx
+        popl    %edi
+        popl    %eax
       { set the VMT address for the new created object }
       { the offset is in %edi since the calling and has not been changed !! }
         movl    %eax,(%esi,%edi,1)
@@ -1110,7 +1116,10 @@ procedure inclocked(var l : longint);assembler;
 
 {
   $Log$
-  Revision 1.9  2001-04-08 13:19:28  jonas
+  Revision 1.10  2001-04-16 11:22:53  peter
+    * merged popal fix
+
+  Revision 1.9  2001/04/08 13:19:28  jonas
     * optimized FPC_HELP_CONSTRUCTOR a bit
 
   Revision 1.8  2001/03/05 17:10:04  jonas