@@ -541,10 +541,15 @@
 ;; immediately set MT_TARGET if -reqtarg or -target are available
 ;;
 (let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
   (if targ (setenv "MT_TARGET" targ)))
 
+;; set the purpose field in procinf
+
+(procinf-purpose-set! *procinf* (get-purpose args:arg-hash))
+(procinf-mtversion-set! *procinf* megatest-version)
+
 ;; The watchdog is to keep an eye on things like db sync etc.
 ;;
 
 ;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage
 ;;(define *watchdog* (make-thread