--- Merging r15128 into '.':

U    rtl/os2/video.pp

git-svn-id: branches/fixes_2_4@15245 -

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