diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a4a060ae91..5e3609c2ee 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-20 20:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * source/rtl/mlcfunc.c
+    ! Fixed after prev optimization. (some optimizations
+      were kept, but with no change of functionality)
+
 2009-06-20 17:25 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.prg
     + Added experimental filename escaping for *nix systems.
diff --git a/harbour/source/rtl/mlcfunc.c b/harbour/source/rtl/mlcfunc.c
index 50322d2c37..65bdc49fc4 100644
--- a/harbour/source/rtl/mlcfunc.c
+++ b/harbour/source/rtl/mlcfunc.c
@@ -163,14 +163,16 @@ static PHB_EOL_INFO hb_mlGetEOLs( int iParam, int * piEOLs )
          Clipper will ignore these parameters and use CRLF EOL hard
          coded. [vszakats] */
 #ifndef HB_C52_STRICT /* HB_EXTENSION */
-   ULONG ulLen = hb_parclen( iParam );
-
-   if( ulLen > 0 )
+   if( HB_ISCHAR( iParam ) )
    {
-      pEOLs = ( PHB_EOL_INFO ) hb_xgrab( sizeof( HB_EOL_INFO ) );
-      pEOLs->szEOL = hb_parc( iParam );
-      pEOLs->ulLen = ulLen;
-      iEOLs = 1;
+      ULONG ulLen = hb_parclen( iParam );
+      if( ulLen )
+      {
+         pEOLs = ( PHB_EOL_INFO ) hb_xgrab( sizeof( HB_EOL_INFO ) );
+         pEOLs->szEOL = hb_parc( iParam );
+         pEOLs->ulLen = ulLen;
+         iEOLs = 1;
+      }
    }
    else if( HB_ISARRAY( iParam ) )
    {