diff --git a/yatex.el b/yatex.el
index 7a64032..966ccf4 100644
--- a/yatex.el
+++ b/yatex.el
@@ -1,6 +1,6 @@
 ;;; yatex.el --- Yet Another tex-mode for emacs //�쒹// -*- coding: sjis -*-
 ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Jan  5 17:45:40 2017 on firestorm
+;;; Last modified Thu Jan  5 23:13:56 2017 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; http://www.yatex.org/
@@ -8,7 +8,7 @@
 ;;; Code:
 (require 'comment)
 (require 'yatexlib)
-(defconst YaTeX-revision-number "1.79"
+(defconst YaTeX-revision-number "1.79.1"
   "Revision number of running yatex.el")
 
 ;---------- Local variables ----------
diff --git a/yatexadd.el b/yatexadd.el
index d1ae1d2..d4cb4d0 100644
--- a/yatexadd.el
+++ b/yatexadd.el
@@ -1,6 +1,6 @@
 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
 ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Jan  5 17:45:50 2017 on firestorm
+;;; Last modified Thu Jan  5 23:13:23 2017 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -66,7 +66,7 @@
   (message (if YaTeX-japan "������₷���R�����g�ɕς����ref�⊮���y��"
 	     "Changing comment string reduces effort at `ref' completion"))
   (concat " " YaTeX-comment-prefix
-	  (YaTeX::ref-default-label "%H:%M")
+	  (YaTeX::ref-default-label " %Y-%m-%d %H:%M")
 	  (if YaTeX-japan "�̎��Q" "equations")))
 
 (defun YaTeX:read-oneof (oneof &optional quick allow-dup)
@@ -568,6 +568,7 @@
   "Default auto-genarated label string."
   ;; We do not use (format-time-string) for emacs-19
   (let*((ts (substring (current-time-string) 4))
+	(Y (substring ts -4))
 	(y (substring ts -2))
 	(b (substring ts 0 3))
 	(d (format "%d" (string-to-int (substring ts 4 6))))
@@ -587,6 +588,7 @@
     (YaTeX-replace-formats
      (or format YaTeX-ref-default-label-string)
      (list (cons "y" y)
+	   (cons "Y" Y)
 	   (cons "b" b)
 	   (cons "m" m)
 	   (cons "d" d)