@@ -697,11 +697,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
@@ -1081,12 +1082,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)))