@@ -238,11 +238,11 @@
 
 (define (common:logpro-exit-code->status-sym exit-code)
   (or (alist-ref exit-code *common:logpro-exit-code->status-sym-alist*) 'fail))
 
 (define (common:worse-status-sym ss1 ss2)
-  (let loop ((status-syms-remaining '(abort fail check warn waived pass)))
+  (let loop ((status-syms-remaining '(abort fail check skip warn waived pass)))
     (cond
      ((null? status-syms-remaining)
       'fail)
      ((eq? (car status-syms-remaining) ss1)
       ss1)