@@ -1323,15 +1323,31 @@
                      (close-output-port oup)))))
            runs)
           #t)
 	#f)))
 
-
-
+;; Getting steps is more complicated.
+;;
+;; If given work area 
+;;  1. Find the testdat.db file
+;;  2. Open the testdat.db file and do the query
+;; If not given the work area
+;;  1. Do a remote call to get the test path
+;;  2. Continue as above
+;; 
+;;(define (rmt:get-steps-for-test run-id test-id)
+;;  (rmt:send-receive 'get-steps-data run-id (list test-id)))
 
-
-
+(define (rmt:teststep-set-status! run-id test-id teststep-name state-in status-in comment logfile)
+  (assert (number? run-id) "FATAL: Run id required.")
+  (let* ((valid-values (common:get-valid-values))
+	 (state     (items:check-valid-items valid-values "state" state-in))
+	 (status    (items:check-valid-items valid-values "status" status-in)))
+    (if (or (not state)(not status))
+	(debug:print 3 *default-log-port* "WARNING: Invalid " (if status "status" "state")
+		     " value \"" (if status state-in status-in) "\", update your validvalues section in megatest.config"))
+    (rmt:send-receive 'teststep-set-status! run-id (list run-id test-id teststep-name state-in status-in comment logfile))))
 
 ;; CHECK - WAS THIS ADDED OR REMOVED? MANUAL MERGE WITH API STUFF!!!
 ;;
 ;; get a pretty table to summarize steps
 ;;