diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d780017bee..0a23c82ac5 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
+2009-09-19 20:48 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+ * examples/hbdoc2/hbdoc2.prg
+ * Minor changes/fixes to help screen and header.
+
2009-09-19 20:32 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* bin/hb-mkdyn.sh
* bin/postinst.sh
diff --git a/harbour/examples/hbdoc2/hbdoc2.prg b/harbour/examples/hbdoc2/hbdoc2.prg
index ba6bea6caa..cfa66ef270 100644
--- a/harbour/examples/hbdoc2/hbdoc2.prg
+++ b/harbour/examples/hbdoc2/hbdoc2.prg
@@ -949,6 +949,9 @@ PROCEDURE ShowSubHelp( xLine, nMode, nIndent, n )
RETURN
+STATIC FUNCTION HBRawVersion()
+ RETURN StrTran( Version(), "Harbour " )
+
PROCEDURE ShowHelp( cExtraMessage, aArgs )
LOCAL nMode := 1
@@ -962,11 +965,14 @@ PROCEDURE ShowHelp( cExtraMessage, aArgs )
CASE Empty( aArgs ) .OR. Len( aArgs ) <= 1 .OR. Empty( aArgs[ 1 ] )
aHelp = { ;
cExtraMessage, ;
- "Harbour Document Extractor No. 2 (" + Version() + ")", ;
+ "Harbour Document Extractor (hbdoc2) " + HBRawVersion(), ;
"Copyright (c) 1999-2009, http://www.harbour-project.org/", ;
- "Syntax: ", ;
+ "", ;
+ "Syntax:", ;
+ "", ;
{ "hbdoc2 [options]" }, ;
- "options:", ;
+ "", ;
+ "Options:", ;
{ ;
"-? or --help // this screen", ;
"-?