diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ee1ab78ba2..cc303f94c0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-09-19 16:31 UTC+0600 April White (april users.sourceforge.net)
+  * examples/hbdoc2/hbdoc2.prg
+     * bug fix when handling "--help" command line
+
 2009-09-19 16:17 UTC+0600 April White (april users.sourceforge.net)
   * doc/class_tp.txt
   * doc/hdr_tpl.txt
diff --git a/harbour/examples/hbdoc2/hbdoc2.prg b/harbour/examples/hbdoc2/hbdoc2.prg
index 671a91b415..ba6bea6caa 100644
--- a/harbour/examples/hbdoc2/hbdoc2.prg
+++ b/harbour/examples/hbdoc2/hbdoc2.prg
@@ -959,7 +959,7 @@ PROCEDURE ShowHelp( cExtraMessage, aArgs )
    LOCAL aHelp
 
    DO CASE
-   CASE Empty( aArgs ) .OR. Len( aArgs ) == 0 .OR. Empty( aArgs[ 1 ] )
+   CASE Empty( aArgs ) .OR. Len( aArgs ) <= 1 .OR. Empty( aArgs[ 1 ] )
       aHelp = { ;
          cExtraMessage, ;
          "Harbour Document Extractor  No. 2 (" + Version() + ")", ;