* register.el (insert-register): Fix 2013-10-07T01:28:34Z!sdl.web@gmail.com.

lisp/ChangeLog

+2013-10-08  Bastien Guerry  <bzg@gnu.org>
+
+	* register.el (insert-register): Fix 2013-10-07T01:28:34Z!sdl.web@gmail.com.
+
 2013-10-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* progmodes/perl-mode.el: Use lexical-binding.

lisp/register.el

@@ -395,8 +395,8 @@ If optional second arg is non-nil, puts mark before and point after.
 Interactively, second arg is non-nil if prefix arg is supplied."
   (interactive (progn
 		 (barf-if-buffer-read-only)
-		 (register-read-with-preview "Insert register: ")
-		 current-prefix-arg))
+		 (list (register-read-with-preview "Insert register: ")
+		       current-prefix-arg)))
   (push-mark)
   (let ((val (get-register register)))
     (cond