@@ -522,11 +522,11 @@
                    (else 
 		  	(loop (car tal)(cdr tal)(conc ret-str ".+" hed ".*|"))))))    )
 
 (define (sretrieve:get-shell-cmd target-path base-path restrictions iport)
      (if (not (file-exists? target-path))
-        (print "Target path does not exist!")
+        (sauth:print-error "Target path does not exist!")
     (begin
     (if (not (equal? target-path #f))
     (begin     
         (if (is_directory target-path) 
         (begin
@@ -614,11 +614,11 @@
 	     (sauth:print-error (conc "Problem fetching the data. Sauth provieds sudo access to only one unix group. Please ensure you have washed all the remaining groups. System Error: " 
 			  ((condition-property-accessor 'exn 'message) exn)))
 	     (exit 1))
   
     (if (not (file-exists? target-path))
-        (print "Error:Target path does not exist!")
+        (sauth:print-error "Error:Target path does not exist!")
     (begin
     (if (not (equal? target-path #f))
     (begin     
         (if (is_directory target-path) 
         (begin
@@ -630,12 +630,12 @@
                   (start-dir (conc (current-directory) "/" last-dir-name))
                   (execlude (make-exclude-pattern (string-split restrictions ",")))
                    (tmpfile (conc "/tmp/" (current-user-name) "/my-pipe-" (current-process-id))))
                     (if  (file-exists? start-dir)
                     (begin
-                         (print last-dir-name " already exist in your work dir.")
-                         (print  "Nothing has been retrieved!!  "))
+                         (sauth:print-error (conclast-dir-name " already exist in your work dir."))
+                         (sauth:print-error  "Nothing has been retrieved!!  "))
                      (begin
                    ;    (sretrieve:do-as-calling-user
                    ; (lambda ()
                     
                   (if (not (file-exists?  (conc "/tmp/" (current-user-name)))) 
@@ -910,11 +910,11 @@
  ;  (use readline)
     (case (string->symbol action)
       ((get)
        (if (< (length args) 2)
 	   (begin 
-	     (print  "ERROR: Missing arguments; <area> <relative path>" )
+	     (sauth:print-error  "Missing arguments; <area> <relative path>" )
 	     (exit 1)))
        (let* ((remargs     (args:get-args args '("-m" ) '() args:arg-hash 0))
               (iport (make-readline-port ">"))
               (area     (car args))
               (usr (current-user-name))
@@ -928,11 +928,11 @@
                                        "" 
                                        (car remargs))))
 
           (if (null? area-obj)
           	    (begin 
-             		(print "Area " area " does not exist")
+             		(sauth:print-error (conc "Area " area " does not exist"))
           	         (exit 1)))
               (let* ((target-path (sauth-common:get-target-path '()  (conc area "/" sub-path) top-areas base-path))
 		     (restrictions (if (equal? target-path #f)
                                         ""
                                        (sretrieve:shell-lookup base-path))))
@@ -943,11 +943,11 @@
    		        (run-cmd (conc *sauth-path* "/sauthorize") (list "register-log" (conc "get " area " " sub-path) (number->string (car user-obj))  (number->string (caddr area-obj))  "get"))))
                         (sretrieve:get-shell-cmd-line target-path base-path restrictions  iport))))))
          ((cp)
              (if (< (length args) 2)
 	   (begin 
-	     (print  "ERROR: Missing arguments; <area> <relative path>" )
+	     (sauth:print-error  "Missing arguments; <area> <relative path>" )
 	     (exit 1)))
        (let* ((remargs     (args:get-args args '("-m" ) '() args:arg-hash 0))
               (iport (make-readline-port ">"))
               (area     (car args))
               (usr (current-user-name))
@@ -961,11 +961,11 @@
                                        "" 
                                        (car remargs))))
          ;  (print args)
           (if (null? area-obj)
           	    (begin 
-             		(print "Area " area " does not exist")
+             		(sauth:print-error (conc "Area " area " does not exist"))
           	         (exit 1)))
               (let* ((target-path (sauth-common:get-target-path '()  (conc area "/" sub-path) top-areas base-path))
 				 (restrictions (if (equal? target-path #f)
                                                  ""
                                               (sretrieve:shell-lookup base-path))))