Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -356,24 +356,27 @@
 
 xterm : sd
 	(export BASEPATH=/tmp/$(USER)/basepath ; export PATH="$(PWD)/datashare-testing:$(PATH)" ; xterm &)
 
 datashare-testing/spublish : spublish.scm $(OFILES)
-	csc $(CSCOPTS) spublish.scm $(OFILES) -o datashare-testing/spublish
+	csc $(CSCOPTS) spublish.scm  megatest-version.o margs.o process.o common.o  -o datashare-testing/spublish
 
 datashare-testing/sretrieve : sretrieve.scm $(OFILES)
-	csc $(CSCOPTS) sretrieve.scm $(OFILES) -o datashare-testing/sretrieve
+	csc $(CSCOPTS) sretrieve.scm  megatest-version.o margs.o process.o common.o  -o datashare-testing/sretrieve
 
 
 datashare-testing/sauthorize : sauthorize.scm $(OFILES)
-	 csc $(CSCOPTS) sauthorize.scm $(OFILES) -o datashare-testing/sauthorize
+	 csc $(CSCOPTS) sauthorize.scm  megatest-version.o margs.o process.o common.o  -o datashare-testing/sauthorize
 
+sauth-init:
+	mkdir -p  datashare-testing
+	rm  datashare-testing/sauthorize
+	rm  datashare-testing/sretrieve 
+	rm  datashare-testing/spublish
 
-sretrieve/sretrieve : datashare-testing/sretrieve
-	csc $(CSCOPTS) -deploy -deployed sretrieve.scm megatest-version.o margs.o configf.o process.o
-	chicken-install -keep-installed $(PROXY) -deploy -prefix sretrieve defstruct srfi-18 format sql-de-lite \
-             srfi-1 posix regex regex-case srfi-69 
+sauth : sauth-init datashare-testing/sauthorize datashare-testing/sretrieve datashare-testing/spublish 
+
 
 # base64 dot-locking \
 #             csv-xml z3
 
 #  "(define (toplevel-command . a) #f)"

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1565,11 +1565,11 @@
 																;(nn-send rep "ok")
                                 (if (not (equal? instr "ping"))
                                   (begin
                                    (debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
                                     ;(system (conc script " '" instr "'"))
-                                      (process-run script (list (conc "'" instr "'")))  
+                                      (process-run script (list  instr ))  
                                      (debug:print 0 *default-log-port* ctime " done" ))))))
                            (loop (nn-recv rep))))
 		       (print "ERROR: Port " portnum " already in use. Try another port")))))))
       ((gather) ;; gather all area db's into /tmp/$USER_megatest/alldbs
        (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))

Index: spublish.scm
==================================================================
--- spublish.scm
+++ spublish.scm
@@ -22,11 +22,11 @@
 (use srfi-18)
 (use srfi-19)
 (use format)
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69)
 
-(declare (uses configf))
+;(declare (uses configf))
 ;; (declare (uses tree))
 (declare (uses margs))
 
 (declare (uses megatest-version))
 ;; (declare (uses tbd))

Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -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)