Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1868,14 +1868,22 @@
 	(args:get-arg "-load"))
     (let* ((toppath (launch:setup))
 	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: (args:get-arg "-local")) #f)))
       (if dbstruct
 	  (cond
-	   ((getenv "MT_RUNSCRIPT") ;; special way to run megatest scripts #!/usr/bin/env MT_RUNSCRIPT=yes megatest
-	    (let ((fname (cadr (argv))))
-	      (print "fname=" fname)
-	      (load fname)))
+	   ((getenv "MT_RUNSCRIPT")
+	    ;; How to run megatest scripts
+	    ;;
+	    ;; #!/bin/bash
+	    ;;
+	    ;; export MT_RUNSCRIPT=yes
+	    ;; megatest << EOF
+	    ;; (print "Hello world")
+	    ;; (exit)
+	    ;; EOF
+
+	    (repl))
 	   (else
 	    (begin
 	      (set! *db* dbstruct)
 	      (set! *client-non-blocking-mode* #t)
 	      (import extras) ;; might not be needed

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -894,11 +894,11 @@
 	'()
 	(let loop ((hed (car all-testnames))
 		   (tal (cdr all-testnames))
 		   (res (list "digraph tests {"
 			      " size=\"11,11\";"
-			      " ratio=0.95;")))
+			      " ratio=0.9;")))
 	  (let* ((testrec (hash-table-ref test-records hed))
 		 (waitons (or (tests:testqueue-get-waitons testrec) '()))
 		 (newres  (append res
 				  (if (null? waitons)
 				      (list (conc "   \"" hed "\";"))