@@ -396,19 +396,19 @@
      (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
-                   (begin (system (conc "cd " parent-dir " ;tar chf - ." )))
-                   (begin (change-directory start-dir)
-                          ;(print "123")
-                          (run-cmd "tar" (list "xf" "-")))))
-                          (print "Copied data to " start-dir))) 
+	 (begin
+	   (let* ((parent-dir src-path)
+		  (start-dir target-path))
+	     (run (pipe
+		   (begin (system (conc "cd " parent-dir " ;tar chf - ." )))
+		   (begin (change-directory start-dir)
+					;(print "123")
+			  (run-cmd "tar" (list "xf" "-")))))
+	     (print "Copied data to " start-dir))) 
         (begin
            (let*((parent-dir (pathname-directory src-path))
                   (start-dir target-path)
                 (filename (if  (pathname-extension src-path)  
                                       (conc(pathname-file src-path) "." (pathname-extension src-path))