@@ -203,11 +203,12 @@
 	 (logfile       "/this/dir/better/not/exist")
 	 (rundir        logfile)
 	 (testfullname  (if testdat (db:test-get-fullname testdat) "Gathering data ..."))
 	 (viewlog    (lambda (x)
 		       (if (file-exists? logfile)
-			   (system (conc "firefox " logfile "&"))
+			   ;(system (conc "firefox " logfile "&"))
+			   (iup:send-url logfile)
 			   (message-window (conc "File " logfile " not found")))))
 	 (xterm      (lambda (x)
 		       (if (directory-exists? rundir)
 			   (let ((shell (if (get-environment-variable "SHELL") 
 					    (conc "-e " (get-environment-variable "SHELL"))