@@ -243,11 +243,14 @@
 			     (else #t))))
 			inlst))
 	 (vlst  (run-item-name->vectors newlst))
 	 ;; sort by second field
 	 (vlst-s1 (sort vlst (lambda (a b)
-			       (>= (string-length (vector-ref a 1))(string-length (vector-ref b 1))))))
+			       (let ((astr (vector-ref a 1))
+				     (bstr (vector-ref b 1)))
+				 (if (string=? astr "") #f #t)))))
+			;; (>= (string-length (vector-ref a 1))(string-length (vector-ref b 1))))))
 	 (vlst-s2 (sort vlst-s1 (lambda (a b)
 				  (string>= (vector-ref a 0)(vector-ref b 0))))))
     (map (lambda (x)
 	   (if (equal? (vector-ref x 1) "")
 	       (vector-ref x 0)