diff --git a/contrib/mu-sexp-convert b/contrib/mu-sexp-convert
index 18aba6c0..b2835ac9 100755
--- a/contrib/mu-sexp-convert
+++ b/contrib/mu-sexp-convert
@@ -89,7 +89,7 @@ into a list of pairs
 
 (define (etime->time_t t)
   "Convert elisp time object T into a time_t value."
-  (logior (ash (car t) 16) (car t)))
+  (logior (ash (car t) 16) (car (cdr t))))
 
 (define (sexp->xml)
   "Convert string INPUT to XML, return the XML (string)."