Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -54,11 +54,10 @@
 
 Usage: dashboard [options]
   -h                    : this help
   -test run-id,test-id  : control test identified by testid
   -skip-version-check   : skip the version check
-  -use-db-cache         : access database via cache 
 
 Misc
   -rows R         : set number of rows
   -cols C         : set number of columns
 "))
@@ -83,11 +82,11 @@
 			"-use-server"
 			"-guimonitor"
 			"-main"
 			"-v"
 			"-q"
-			"-use-db-cache"
+			;; "-use-db-cache"
 			"-skip-version-check"
 			"-repl"
                         "-rh5.11" ;; fix to allow running on rh5.11
 			)
 		 args:arg-hash

Index: utils/plot-code.scm
==================================================================
--- utils/plot-code.scm
+++ utils/plot-code.scm
@@ -5,21 +5,31 @@
 ;;        dot -Tpdf plot.dot > plot.pdf
 ;; first param is comma separated list of files to include in the map, use - to do all
 ;; second param is list of regexs for functions to include in the map
 ;; third param is list of files to scan
 
-(use regex srfi-69 srfi-13)
+(use regex srfi-69 srfi-13 srfi-1 data-structures posix)
+
+;;                 1                   2        remainder
+;; plot-code file1.scm,file2.scm... fn-regex file1.scm file2.scm ...
+
+(define targs #f)
+
+(define args (argv))
+(if (< (length args) 2) ;; no args provided
+    (begin
+       (print "Usage: plot-code file1.scm,file2.scm... 'your.*regex' file3.scm file4.scm file5.scm  ...")
+       (exit)))
 
-(define targs #f) 
-(define files (cdr (cddddr (argv))))
+(define files (cdddr args))
 
-(let ((targdat (cadddr (argv))))
+(let ((targdat (cadr args)))
   (if (equal? targdat "-")
       (set! targs files)
       (set! targs (string-split targdat ","))))
 
-(define function-patt (car (cdr (cdddr (argv)))))
+(define function-patt (caddr args))
 (define function-rx   (regexp function-patt))
 (define filedat-defns (make-hash-table))
 (define filedat-usages (make-hash-table))
 
 (define defn-rx (regexp "^\\s*\\(define\\s+\\(([^\\s\\)]+).*"))