                     (setq str (concat str val-str))))
                 ;; (message "debug: %S" time)
                 (if inter
-                    (message "%0.2f seconds → %s"
-                             seconds
-                             (string-trim (replace-regexp-in-string " +"  " " str)))
-                  (string-trim-right str)))))
+                    (progn
+                      (setq str (string-trim
+                                 (replace-regexp-in-string " +"  " " str)))
+                      (message "%0.2f seconds → %s" seconds str))
+                  (setq str (string-trim-right str)))
+                str)))
            (time (cond
                   ((>= sec DAY)          ;> day
                    (let* ((days (/ (floor sec) DAY))

;;; seconds-to-human-time.el --- Convert seconds to human time -*- lexical-binding: t -*-
;; Time-stamp: <2018-02-16 15:30:04 kmodi>
;; https://scripter.co/convert-seconds-to-human-time/

(defun seconds-to-human-time (&optional seconds)

           (HOUR (* 60 MINUTE))
           (DAY (* 24 HOUR))
           (sec (cond
                 ((and seconds
                       (listp seconds)) ;This is entered only by recursive calls
                  (car (last seconds)))
                 ((and (numberp seconds) ;This is entered only in the first entry
                       (>= seconds 0))
                  seconds)
                 (t
