From 997e91b66f1c27fd77dffbb1b905b407cce1139e Mon Sep 17 00:00:00 2001
From: Paul Tucker <ptucker@sympatico.ca>
Date: Sat, 25 Mar 2000 10:00:26 +0000
Subject: [PATCH] Fix for diskspace() hang

---
 harbour/ChangeLog             | 3 +++
 harbour/source/rtl/diskspac.c | 5 +++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2635a6e212..2aeb82ea1b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,6 @@
+20000325-04:58 EST Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/diskspac.c
+     * un-opted the small opt. (fixed hang)
 
 20000325-05:30 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
     Missed from previos session
diff --git a/harbour/source/rtl/diskspac.c b/harbour/source/rtl/diskspac.c
index 9412363c0a..dca0869d1d 100644
--- a/harbour/source/rtl/diskspac.c
+++ b/harbour/source/rtl/diskspac.c
@@ -264,9 +264,10 @@ HB_FUNC( DISKSPACE )
                   with EF_CANDEFAULT above)
          */
 
-         if( uiAction != E_RETRY )
-            break;
+         if( uiAction == E_RETRY )
+            continue;
       }
+      break;
    }
 
 #else