@@ -23,13 +23,12 @@
 (use srfi-18)
 (use srfi-19)
 (use refdb)
 
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69)
-(declare (uses common))
-
-(declare (uses configf))
+;(declare (uses common))
+;(declare (uses configf))
 (declare (uses margs))
 (declare (uses megatest-version))
 
 (include "megatest-fossil-hash.scm")
 ;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
@@ -487,11 +486,11 @@
            (if (or (null? code-obj)
                    (not (exe-exist (cadr code-obj)  "retrieve")))
               (begin
               (print "Area " area " is not open for reading!!")
               (exit 1))) 
-               (print (conc *exe-path* "/retrieve/" (cadr code-obj) " " action " " area " " (string-join cmd-args)))
+               ;(print (conc *exe-path* "/retrieve/" (cadr code-obj) " " action " " area " " (string-join cmd-args)))
               (sauthorize:do-as-calling-user
              (lambda ()
                 (run-cmd (conc *exe-path* "/retrieve/" (cadr code-obj) ) (append (list action area ) cmd-args))))))