* fix long term problem resulting in crashes of FV apps under OS/2

git-svn-id: trunk@15128 -

rtl/os2/video.pp

@@ -394,6 +394,7 @@ begin
       shl ecx, 1
       shl ecx, 1
       mov CLen, ecx
+      cld
 @no_update:
       pop edi
       pop esi