Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -46,14 +46,14 @@
 ;;
 ;; GLOBALS
 ;;
 (define *verbosity* 1)
 (define *logging* #f)
-
+(define *exe-name* (pathname-file (car (argv))))
 (define *sretrieve:current-tab-number* 0)
 (define *args-hash* (make-hash-table))
-(define sretrieve:help (conc "Usage: sretrieve [action [params ...]]
+(define sretrieve:help (conc "Usage: " *exe-name* " [action [params ...]]
 
   ls                     : list contents of target area
   get <relversion>       : retrieve data for release <version>
     -m \"message\"       : why retrieved?
 
@@ -116,11 +116,11 @@
 	  (debug:print 0 "[database]\nlocation /some/path\n\n Is missing from the config file!")
 	  (exit 1)))
     (if (and path
 	     (directory? path)
 	     (file-read-access? path))
-	(let* ((dbpath    (conc path "/sretrieve.db"))
+	(let* ((dbpath    (conc path "/" *exe-name* ".db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath)))
 	  (handle-exceptions
 	   exn
 	   (begin
@@ -446,11 +446,11 @@
                     (lambda ()
 		 (process-execute "/bin/ls" (list base-dir)))))
 	       (print "ERROR: No base dir specified!"))))
 	((log)
 	 (sretrieve:db-do configdat (lambda (db)
-				     (print "Listing actions")
+				     (print "Logs : ")
 				     (query (for-each-row
 					     (lambda (row)
 					       (apply print (intersperse row " | "))))
 					    (sql db "SELECT * FROM actions")))))
 	(else