@@ -980,17 +980,21 @@
 ;; General info about the run(s) and megatest area
 (define (dashboard:summary db)
   (let ((rawconfig        (read-config (conc *toppath* "/megatest.config") #f 'return-string)))
     (iup:vbox
      (iup:split
-      ;; #:value 500
+      #:value 500
       (iup:frame 
        #:title "General Info"
-       (iup:hbox 
-	(dcommon:keys-matrix rawconfig)
-	(dcommon:general-info)
-	))
+       (iup:vbox
+	(iup:hbox
+	 (iup:label "Area Path")
+	 (iup:textbox #:value *toppath* #:expand "HORIZONTAL"))
+	(iup:hbox 
+	 (dcommon:keys-matrix rawconfig)
+	 (dcommon:general-info)
+	 )))
       (iup:frame
        #:title "Server"
        (dcommon:servers-table)))
      (iup:frame 
       #:title "Megatest config settings"