@@ -78,10 +78,14 @@
 ;;     (begin
 ;;       (set! *runremote* (string-split (args:get-arg "-host" ":")))
 ;;       (client:launch))
 ;;     (client:launch))
 
+;; ease debugging by loading ~/.dashboardrc
+(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
+  (if (file-exists? debugcontrolf)
+      (load debugcontrolf)))
 
 (define *dbdir* (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
 (define *dbstruct-local*  (make-dbr:dbstruct path:  *dbdir*
 					     local: #t))
 (define *db-file-path* (db:dbfile-path 0))