@@ -15,16 +15,16 @@
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 
-(use defstruct)
-(use scsh-process)
-(use srfi-18)
-(use srfi-19)
-(use refdb)
-(use sql-de-lite srfi-1 posix regex regex-case srfi-69)
+(import defstruct)
+(import scsh-process)
+(import srfi-18)
+(import srfi-19)
+(import refdb)
+(import sql-de-lite srfi-1 posix regex regex-case srfi-69)
 ;(declare (uses common))
 ;(declare (uses configf))
 (declare (uses margs))
 
 (include "megatest-version.scm")
@@ -32,11 +32,11 @@
 ;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
 (include "sauth-paths.scm")
 (include "sauth-common.scm")
 
 (define (toplevel-command . args) #f)
-(use readline)
+(import readline)
 
 
 
 
 ;;
@@ -719,11 +719,11 @@
 Version: " megatest-fossil-hash)
 )	
 ;(define (toplevel-command . args) #f)
 (define (sretrieve:shell area)
  ; (print area)
-  (use readline)
+  (import readline)
   (let* ((path      '())
 	 (prompt    "sretrieve> ")
 	 (args      (argv))
          (usr (current-user-name) )   
          (top-areas (sretrieve:get-accessable-projects area))
@@ -916,11 +916,11 @@
 ;      res)))
 
 (define (toplevel-command . args) #f)
 (define (sretrieve:process-action  action . args)
     ; (print action)
- ;  (use readline)
+ ;  (import readline)
     (case (string->symbol action)
       ((get)
        (if (< (length args) 2)
 	   (begin 
 	     (sauth:print-error  "Missing arguments; <area> <relative path>" )