@@ -114,10 +114,11 @@
 	       (self         #f))
 	  
 	  ;;  (test-set-status! db run-id test-name state status itemdat)
 	  (set! self 
 		(iup:dialog
+		 #:title testfullname
 		 (iup:vbox
 		  (iup:hbox 
 		   (iup:frame (iup:label run-key))
 		   (iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
 		  (iup:frame #:title "Actions" #:expand "YES"