diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c0525d885b..6e1fad7910 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+19990617-12:40 CET Eddie Runia
+  * source/rtl/dir.c
+    hb_chmod should be _chmod
+  * tests/working/round.prg
+    loop shortened to 100 (I thought the program has crashed, while testalling)
+
 19990617-12:20 CET Eddie Runia
   * source/compiler/harbour.y
     GetLocalVarPos : OurMalloc( sizeof(PVAR) ) should be sizeof(VAR)
diff --git a/harbour/source/rtl/dir.c b/harbour/source/rtl/dir.c
index 241150c997..c844ddeb54 100644
--- a/harbour/source/rtl/dir.c
+++ b/harbour/source/rtl/dir.c
@@ -263,7 +263,7 @@ HARBOUR HB_DIRECTORY( void )
 	 aatrib[0] = '\0';
 #else
          /* TODO: seems to not clear on root entries ? */
-         attrib = hb_chmod(fullfile,0);
+         attrib = _chmod(fullfile,0);
          if (attrib & FA_ARCH)
             strcat(aatrib,"A");
          if (attrib & FA_DIREC)
diff --git a/harbour/tests/working/round.prg b/harbour/tests/working/round.prg
index 50b6d497ae..8e452a1652 100644
--- a/harbour/tests/working/round.prg
+++ b/harbour/tests/working/round.prg
@@ -9,7 +9,7 @@
 function main()
 local n, value := -5
 
-   for n := 1 to 10000
+   for n := 1 to 100
       OUTSTD(NewLine)
       OUTSTD(value)
       OUTSTD(round(value, 3))