diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 8a6a7a696b..70c091fbf2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to these authors: Viktor Szakats.
 */
 
+2009-05-25 15:00 UTC+0300 Alexander Kresin <alex at belacy.belgorod.su>
+  * utils/hbformat/hbformat.prg
+    ! Small fix
+
 2009-05-25 12:30 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * make_gnu.bat
     % Fixed to exclude external libs from dll phase of build.
diff --git a/harbour/utils/hbformat/hbformat.prg b/harbour/utils/hbformat/hbformat.prg
index 9182dcca78..338659e922 100644
--- a/harbour/utils/hbformat/hbformat.prg
+++ b/harbour/utils/hbformat/hbformat.prg
@@ -483,7 +483,7 @@ METHOD Reformat( aFile ) CLASS CODEFORMAT
                               cToken1 == "end"
                            IF nPos != 0 .AND. nDeep > 0 .AND. aDeep[nDeep] != nPos
                               DO WHILE ( nPos := Ascan( ::aContr, { |a|a[4] == cToken1 }, ;
-                                    nPos ) ) != 0 .AND. aDeep[nDeep] != nPos
+                                    nPos + 1 ) ) != 0 .AND. aDeep[nDeep] != nPos
                               ENDDO
                            ENDIF
                            IF nDeep > 0 .AND. aDeep[nDeep] == nPos .OR. cToken1 == "end"