diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f0dd544aa5..470b94da54 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-10-13 12:40 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbwin/win_prn2.c
+    ! alter hb_PrintFileRaw() to open printed file in FILE_SHARE_READ mode.
+      (borrowed from xhb, patch by Peter Rees <peter(AT)rees.co.nz>)
+
 2009-10-13 02:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbtip/sendmail.prg
     + Fixed to allow inclusion of descriptive name in "from" address.
@@ -67,7 +72,7 @@
     ! Fixed wrongly referring to 7-bit encoding.
     ! Fixed some more hardcoded charsets.
     + Added support for user-selectable encoding.
-    ; TOFIX: Still doesn't work for some reason.
+    ; TOFIX: Still doesn't work for some reason. [DONE]
 
   * contrib/hbtip/encqp.prg
   * contrib/hbtip/mail.prg
diff --git a/harbour/contrib/hbwin/win_prn2.c b/harbour/contrib/hbwin/win_prn2.c
index a56cb0cad0..58ba0c26c2 100644
--- a/harbour/contrib/hbwin/win_prn2.c
+++ b/harbour/contrib/hbwin/win_prn2.c
@@ -440,7 +440,7 @@ LONG hb_PrintFileRaw( const char * cPrinterName, const char * cFileName, const c
             LPTSTR lpFileName = HB_TCHAR_CONVTO( cFileName );
             HANDLE hFile;
 
-            hFile = CreateFile( ( LPCTSTR ) lpFileName, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
+            hFile = CreateFile( ( LPCTSTR ) lpFileName, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
 
             HB_TCHAR_FREE( lpFileName );