ADDED   bin/.11/lib/libpangox-1.0.so
Index: bin/.11/lib/libpangox-1.0.so
==================================================================
--- /dev/null
+++ bin/.11/lib/libpangox-1.0.so
cannot compute difference between binary files

ADDED   bin/.11/lib/libpangox-1.0.so.0
Index: bin/.11/lib/libpangox-1.0.so.0
==================================================================
--- /dev/null
+++ bin/.11/lib/libpangox-1.0.so.0
cannot compute difference between binary files

ADDED   bin/.11/lib/libxcb-xlib.so.0
Index: bin/.11/lib/libxcb-xlib.so.0
==================================================================
--- /dev/null
+++ bin/.11/lib/libxcb-xlib.so.0
cannot compute difference between binary files

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,6 +18,6 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..
 
 ;; (declare (unit megatest-version))
 
-(define megatest-version 1.6578)
+(define megatest-version 1.6579)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -472,13 +472,16 @@
            (tarfiledir (conc *toppath* "/reruns"))
            (status (db:test-get-status testdat))
            (comment (conc "\"" (db:test-get-comment testdat) "\"" ))
            (testname (db:test-get-testname testdat))
            (itempath (db:test-get-item-path testdat))
-           (log-file        (conc "rerun-hook-" (string-translate target "/" "-") "-" runname "." testname (if (not (string=? itempath "")) (conc  "." (string-translate itempath "/" "-")) "") ".log"))
+           (file-body (conc status "-" (string-translate target "/" "-") "-" runname "." testname (if (not (string=? itempath "")) (conc  "." (string-translate itempath "/" "-")) "")))
+           (log-file (conc file-body ".log"))
+           ;; (log-file        (conc status "-" (string-translate target "/" "-") "-" runname "." testname (if (not (string=? itempath "")) (conc  "." (string-translate itempath "/" "-")) "") ".log"))
            (full-log-fname  (conc log-dir "/" log-file))
-           (tarfilename (conc status "." (string-translate target "/" "-") "." runname "." testname (if (not (string=? itempath "")) (conc  "." (string-translate itempath "/" "-")) "") ".tar"))
+           (tarfilename (conc file-body ".tar"))
+           ;; (tarfilename (conc status "." (string-translate target "/" "-") "." runname "." testname (if (not (string=? itempath "")) (conc  "." (string-translate itempath "/" "-")) "") ".tar"))
            )
       (if rerun-hook
 	  (let* ((use-log-dir (if (not (directory-exists? log-dir))
 				  (handle-exceptions
 				      exn
@@ -490,10 +493,11 @@
 				  #t))
 		 (start-time   (current-seconds))
 		 (actual-logf  (if use-log-dir full-log-fname log-file))
                  (sys-call-text (conc rerun-hook " " tarfilename " " rundir " " actual-logf " " runname " " tarfiledir " " status " " target " " comment " " testname " " itempath " >> " actual-logf " 2>&1"))
                  )
+	    (debug:print 2 *default-log-port* "Found rerun-hook in config:" rerun-hook)
 	    (handle-exceptions
 		exn
 		(begin
 		  (print-call-chain *default-log-port*)
 		  (debug:print 0 *default-log-port* "Message: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
@@ -685,11 +689,11 @@
     (runs:update-all-test_meta #f)
 
     ;; run the run prehook if there are no tests yet run for this run:
     ;;
     (runs:run-pre-hook run-id)
-    ;; mark all test launced flag as false in the meta table 
+    ;; mark all test launched flag as false in the meta table 
     (rmt:set-var (conc "lunch-complete-" run-id) "no")
     (debug:print-info 1 *default-log-port* "Setting end-of-run to no")
     (let* ((config-reruns      (let ((x (configf:lookup *configdat* "setup" "reruns")))
 				 (if x (string->number x) #f)))
 	   (config-rerun-cnt (if config-reruns
@@ -845,11 +849,11 @@
 	    (if (> run-count 0) ;; handle reruns
 		(begin
 		  (if (not (hash-table-ref/default flags "-preclean" #f))
 		      (hash-table-set! flags "-preclean" #t))
 		  (if (not (hash-table-ref/default flags "-rerun" #f))
-		      (hash-table-set! flags "-rerun" "STUCK/DEAD,n/a,ZERO_ITEMS"))
+		      (hash-table-set! flags "-rerun" "ABORT,STUCK/DEAD,n/a,ZERO_ITEMS"))
 		  ;; recursive call to self
 		  (runs:run-tests target runname test-patts user flags run-count: (- run-count 1)))
                 (launch:end-of-run-check run-id)))
 	  (debug:print-info 0 *default-log-port* "No tests to run")))
     (debug:print-info 4 *default-log-port* "All done by here")