diff --git a/source/clog-web-dbi.lisp b/source/clog-web-dbi.lisp
index 6e457d2..6ae07ff 100644
--- a/source/clog-web-dbi.lisp
+++ b/source/clog-web-dbi.lisp
@@ -196,7 +196,8 @@ if one is present and login fails."
 
 (defun make-token ()
   "Create a unique token used to associate a browser with a user"
-  (get-universal-time))
+  (crypto:byte-array-to-hex-string
+   (crypto:random-data 16)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;
 ;; create-base-table ;;