Fix some more sleep lock stuff

status-bar/sb-manual-sleep-locks

@@ -43,6 +43,8 @@
        maximize (length (cdr lock)) into second-col-len
        finally
        (progn
+         (setq first-col-len (max first-col-len (length "Length"))
+               second-col-len (max second-col-len (length "Until")))
          (insert (string-pad "Length" first-col-len) "  Until\n")
          (insert (make-string (+ first-col-len 2 second-col-len) ?-) "\n")
          (dolist (lock locks)