Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2479,11 +2479,20 @@
       (lambda (obj)
         (common:run-a-command
          (conc "megatest -set-state-status KILLREQ,n/a -target " target
                " -runname " runname
                " -testpatt % "
-               "  -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))))
+               "  -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
+     (iup:menu-item 
+      "Delete Run Data"
+      #:action
+      (lambda (obj)
+        (common:run-a-command
+         (conc "megatest -remove-runs -target " target
+               " -runname " runname
+               " -testpatt % "
+               "  -keep-records"))))))
    (iup:menu-item
     "Test"
     (iup:menu 
      (iup:menu-item
       (conc "Rerun " item-test-path)
@@ -2502,10 +2511,19 @@
 	(common:run-a-command
 	 (conc "megatest -set-state-status KILLREQ,n/a -target " target
                " -runname " runname
 	       " -testpatt " item-test-path 
 	       " -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
+     (iup:menu-item
+      (conc "Delete data : " item-test-path)
+      #:action
+      (lambda (obj)
+	(common:run-a-command
+	 (conc "megatest -remove-runs -target " target
+               " -runname " runname
+	       " -testpatt " item-test-path 
+	       " -keep-records"))))
      (iup:menu-item
       (conc "Clean "item-test-path)
       #:action
       (lambda (obj)
 	(common:run-a-command