diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index a7f353407ce..504f0dfb23e 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -2688,9 +2688,8 @@ Emacs is restarted by the session manager.
 @group
 (defun save-yourself-test ()
   (insert
-   (format "%S" '(save-current-buffer
-		   (switch-to-buffer "*scratch*")
-		   (insert "I am restored"))))
+   (format "%S" '(with-current-buffer "*scratch*"
+                   (insert "I am restored"))))
   nil)
 @end group
 @end example