Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -255,10 +255,12 @@
 (define (dashboard-tests:run-html-viewer lfilename)
   (let ((htmlviewercmd (configf:lookup *configdat* "setup" "htmlviewercmd")))
     (if htmlviewercmd
 	(system (conc "(" htmlviewercmd " " lfilename " ) &")) 
 	(iup:send-url lfilename))))
+
+(define (dashboard-tests:run-a-step 
 
 (define (dashboard-tests:step-run-control test-id stepname teststeps)
   (iup:dialog ;; #:close_cb (lambda (a)(exit)) ; #:expand "YES"
    #:title stepname
    (iup:vbox ; #:expand "YES"