1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 9fc3f57833c..fb23ead63f6 100644
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -96,7 +96,7 @@ string that was matched."
 (defun ecomplete-add-item (type key text)
   "Add item TEXT of TYPE to the database, using KEY as the identifier."
   (let ((elems (assq type ecomplete-database))
-        (now (string-to-number (format-time-string "%s")))
+        (now (encode-time nil 'integer))
         entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))