--- emacs-24.3/lisp/desktop.el
+++ emacs-24.3/lisp/desktop.el
@@ -771,7 +771,7 @@
        (cons nil (concat "(let ((mk (make-marker)))"
 			 " (add-hook 'desktop-delay-hook"
 			 " (list 'lambda '() (list 'set-marker mk "
-			 pos " (get-buffer " buf ")))) mk)"))))
+			 pos " '(get-buffer " buf ")))) mk)"))))
     (t					 ; save as text
      (cons 'may "\"Unprintable entity\""))))