diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e29366e14c..8f6ebbc123 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-10 13:50 GMT-5 David G. Holm <dholm@ sd-llc.com>
+
+   * source/rtl/tone.c
+     ! Borland C does not support Beep() under Windows.
+
 20000209-22:37 EST Paul Tucker <ptucker@sympatico.ca>
    * makefile.vc
      + /D_Windows to compiler flags
diff --git a/harbour/source/rtl/tone.c b/harbour/source/rtl/tone.c
index e4c0d03f84..384373f4ff 100644
--- a/harbour/source/rtl/tone.c
+++ b/harbour/source/rtl/tone.c
@@ -198,7 +198,7 @@ void hb_tone( double dFrequency, double dDuration )
          beep( dFrequency, temp );
 #elif defined(WINNT)
          Beep( ( ULONG ) dFrequency, temp );
-#elif defined(_Windows)
+#elif defined(_Windows) && ! defined(__BORLANDC__)
          /* Bad news for non-NT Windows platforms: Beep() ignores
             both parameters and either generates the default sound
             event or the standard system beep. */