diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ff329be532..f967ca4ede 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-04-09 00:07 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * bin/hb3rdpat.hbs
+    * formatting
+
 2012-04-09 00:04 UTC+0200 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
   * bin/hb3rdpat.hbs
diff --git a/harbour/bin/hb3rdpat.hbs b/harbour/bin/hb3rdpat.hbs
index 4c742208e1..6d230c5f8d 100755
--- a/harbour/bin/hb3rdpat.hbs
+++ b/harbour/bin/hb3rdpat.hbs
@@ -302,7 +302,7 @@ PROCEDURE Main( ... )
          ErrorLevel( 1 )
          QUIT
       ELSE
-         ASort( aDir,,, { | tmp, tmp1 | tmp[ F_NAME ] < tmp1[ F_NAME ] } )
+         ASort( aDir,,, {| tmp, tmp1 | tmp[ F_NAME ] < tmp1[ F_NAME ] } )
          cFileName := aDir[ 1 ][ F_NAME ]
       ENDIF
    ENDIF
@@ -601,7 +601,7 @@ STATIC FUNCTION WalkAndFind( cTop, cLookFor )
    cTop += iif( Right( cTop, 1 ) $ "/\", "", hb_ps() )
    aDir := Directory( cTop + hb_osFileMask(), "D" )
 
-   ASort( aDir,,, { |aLeft| !( "D" $ aLeft[ F_ATTR ] ) } )   /* Files first */
+   ASort( aDir,,, {| aLeft | !( "D" $ aLeft[ F_ATTR ] ) } )   /* Files first */
 
    FOR EACH aDirEntry IN aDir
       IF !( "D" $ aDirEntry[ F_ATTR ] )