@@ -362,11 +362,11 @@
    (let* ((projects `()))
          
         (if (sretrieve:has-permission area)
                (set! projects (cons area projects))
                (begin
-                 (print "User cannot access area " area "!!")  
+                 (sauth:print-error (conc "User cannot access area " area "!!"))  
                 (exit 1))) 
    ; (print projects)
     projects))
 		 
 (define (sauth-common:shell-ls-cmd base-path-list ext-path top-areas base-path tail-cmd-list)