Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -3837,11 +3837,12 @@
   (let* ((mtdb-path (conc *toppath* "/.mtdb/main.db"))
          (target (args:get-arg "-target"))
          (commondat       (dboard:commondat-make)))
     (if target
         (begin
-          (args:remove-arg-from-ht "-target")
+          (hash-table-delete! args:arg-hash "-target")  ;; workaround for the following commented out function
+          ;; (args:remove-arg-from-ht "-target")   This function is in mtargs/mtargs.scm, but it's in an egg that is not in the current build of chicken 4.10
           (dboard:commondat-target-set! commondat target)
         )
     )
 
     (if (not (launch:setup))

Index: mtargs/mtargs.scm
==================================================================
--- mtargs/mtargs.scm
+++ mtargs/mtargs.scm
@@ -20,10 +20,11 @@
     (
      arg-hash
      get-arg
      get-arg-number
      get-arg-from
+     remove-arg-from-ht
      get-args
      usage
      print-args
      any-defined?
      ) 
@@ -64,10 +65,14 @@
 
 (define (get-arg-from ht arg . default)
   (if (null? default)
       (hash-table-ref/default ht arg #f)
       (hash-table-ref/default ht arg (car default))))
+
+(define (remove-arg-from-ht arg)
+      (hash-table-delete! arg-hash arg)
+)
 
 (define (get-args args params switches arg-hash num-needed)
   (let* ((numtargs (length args))
 	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
     (if (< numtargs (if adj-num-needed adj-num-needed 2))