@@ -25,11 +25,11 @@
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69)
 ;(declare (uses common))
 ;(declare (uses configf))
 (declare (uses margs))
 (declare (uses megatest-version))
- 
+(use (prefix mtconfigf configf:)) 
 
 (include "megatest-fossil-hash.scm")
 ;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
 (include "sauth-paths.scm")
 (include "sauth-common.scm")
@@ -505,11 +505,11 @@
                               value))
              
 
 (define (sretrieve:load-shell-config fname)
           (if (file-exists? fname)
-	(read-config fname #f #f)
+	(configf:read-config fname #f #f)
 	))
 
 
 (define (is_directory target-path) 
   (let* ((retval #f))