Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -638,11 +638,11 @@
                                       (pathname-file target-path)))
                   (curr-dir (current-directory))   
                   (start-dir (conc (current-directory) "/" last-dir-name))
                   (execlude (make-exclude-pattern (string-split restrictions ",")))
                    (tmpfile (conc "/tmp/" (current-user-name) "/my-pipe-" (current-process-id))))
-                    (sauth:print-error start-dir)
+                    ;(sauth:print-error start-dir)
                     (if  (file-exists? start-dir)
                     (begin
                          (sauth:print-error (conclast-dir-name " already exist in your work dir."))
                          (sauth:print-error  "Nothing has been retrieved!!  "))
                      (begin
@@ -698,11 +698,12 @@
                  ;;do nothing for dirs)
                  ) 
                 (else 
                                         
                      (if (not (string-match (regexp exclude)  p ))
-                        (print (string-substitute (conc base_path "/") "" p "-"))))))))
+                        (print (string-substitute (conc base_path "/") "" p "-"))))))
+     dotfiles: #t))
 
 (define (sretrieve:shell-help)
 (conc "Usage: " *exe-name* " [action [params ...]]
 
   ls    [target path]               	  : list contents of target area. The output of the cmd can be piped into other system cmd. eg ls <path> | grep txt
@@ -1082,12 +1083,12 @@
 (define (main)
   (let* ((args      (argv))
 	 (prog      (car args))
 	 (rema      (cdr args))
 	 (exe-name  (pathname-file (car (argv))))
-	 (exe-dir   (or (pathname-directory prog)
-			(sretrieve:find exe-name (string-split (get-environment-variable "PATH") ":"))))
+	 ;(exe-dir   (or (pathname-directory prog)
+	;		(sretrieve:find exe-name (string-split (get-environment-variable "PATH") ":"))))
 	 ;(configdat (sretrieve:load-config exe-dir exe-name))
 )
     ;; preserve the exe data in the config file
     ;(hash-table-set! configdat "exe-info" (list (list "exe-name" exe-name)
 					;	(list "exe-dir"  exe-dir)))
@@ -1104,9 +1105,10 @@
      ((>= (length rema) 2)
       
       (apply sretrieve:process-action  (car rema) (cdr rema)))
      (else (debug:print 0 "ERROR: Unrecognised command. Try \"sretrieve help\"")))))
 
+ ;(print "Debug>>" argv " " (car (argv)) " " (pathname-file (car (argv))) (pathname-directory (car (argv))))
 (main)