@@ -391,10 +391,14 @@
    ((not (file-exists? target-path))
 	(sauth:print-error (conc " target Directory " target-path " does not exist!!")))
    ((not (file-exists? src-path))
     (sauth:print-error (conc "Source path " src-path " does not exist!!" )))
    (else
+     (if (< (sauth-common:space-left-at-dest target-path) (sauth-common:src-size src-path))
+          (begin 
+             (sauth:print-error "Destination does not have enough disk space.")
+             (exit 1)))    
      (if (is_directory src-path) 
         (begin
             (let* ((parent-dir src-path)
                    (start-dir target-path))
                  (run (pipe