wadcvt: fix bit 11

diff --git a/src/tools/wadcvt.dpr b/src/tools/wadcvt.dpr
index b4827cb4d389fe1db2cef474d57b5b53662910a2..8f2715279741e8eb8a9403027e287757533f7086 100644 (file)
--- a/src/tools/wadcvt.dpr
+++ b/src/tools/wadcvt.dpr
@@ -607,7 +607,7 @@ begin
   Move(fu[1], result[9], length(fu));
 end;
 {$ELSE}
-const UtfFlags = (1 shl 10); // bit 11
+const UtfFlags = (1 shl 11); // bit 11
 {$ENDIF}
 
 function ZipOne (ds: TStream; fname: AnsiString; st: TStream; dopack: Boolean=true): TFileInfo;