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