diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 96597ca3cc..47d5735eb7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-18 11:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbwin/win_tprn.prg
+    ! Fix to prev.
+
 2010-01-18 10:58 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbwin/win_tprn.prg
     ! Using constant.
diff --git a/harbour/contrib/hbwin/win_tprn.prg b/harbour/contrib/hbwin/win_tprn.prg
index 1972617826..4a58978861 100644
--- a/harbour/contrib/hbwin/win_tprn.prg
+++ b/harbour/contrib/hbwin/win_tprn.prg
@@ -425,7 +425,7 @@ METHOD GetDocumentProperties() CLASS WIN_PRN
 // An array {nMul,nDiv} is used to get precise size such a the Dot Matric equivalent
 // of Compressed print == 16.67 char per inch == { 3,-50 }
 // If nDiv is < 0 then Fixed width printing is forced via ExtTextOut()
-METHOD SetFont( cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nCharSet ) CLASS WIN_PRN
+METHOD SetFont( cFontName, nPointSize, xWidth, nBold, lUnderline, lItalic, nCharSet ) CLASS WIN_PRN
    LOCAL cType
    IF cFontName != NIL
       ::FontName := cFontName
@@ -433,12 +433,12 @@ METHOD SetFont( cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nChar
    IF nPointSize != NIL
       ::FontPointSize := nPointSize
    ENDIF
-   IF nWidth != NIL
-      cType := ValType( nWidth )
+   IF xWidth != NIL
+      cType := ValType( xWidth )
       IF cType == "A"
-         ::FontWidth := nWidth
-      ELSEIF cType == "N" .AND. ! Empty( nWidth )
-         ::FontWidth := { 1, nWidth }
+         ::FontWidth := xWidth
+      ELSEIF cType == "N" .AND. ! Empty( xWidth )
+         ::FontWidth := { 1, xWidth }
       ELSE
          ::FontWidth := { 0, 0 }
       ENDIF