diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index fa598612f8..ee1c5102cb 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-16 15:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/xhb/ttable.prg
+    ! Typo fixed. Reported by newsgroup user.
+
 2009-06-16 15:09 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * examples/uhttpd2/socket.c
     ! Including winsock2.h to avoid missing macro SD_BOTH
diff --git a/harbour/contrib/xhb/ttable.prg b/harbour/contrib/xhb/ttable.prg
index e7d9516abf..5bb6ef15d3 100644
--- a/harbour/contrib/xhb/ttable.prg
+++ b/harbour/contrib/xhb/ttable.prg
@@ -204,7 +204,7 @@ FUNCTION NetLock( nType, lReleaseLocks, nSeconds )
          ELSE
             IF nType == 1
                cWord := "( " + DBINFO( 33 ) + " - Record Lock )"
-            ELSEIF nType == 1
+            ELSEIF nType == 2
                cWord := "( " + DBINFO( 33 ) + " - File Lock )"
             ELSEIF nType == 3
                cWord := "( " + DBINFO( 33 ) + " - File Append )"