From a892e59b1fca6a222b4b252da90a2a5f19462542 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 May 2018 22:08:01 -0700
Subject: [PATCH] Fix typo in previous change.

---
 src/runtime/error.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/runtime/error.scm b/src/runtime/error.scm
index 5a4c5e495..beed733ac 100644
--- a/src/runtime/error.scm
+++ b/src/runtime/error.scm
@@ -663,8 +663,7 @@ USA.
 (define (signal-file-operation continuation index verb noun reason
 			       operator operands)
   (with-restart 'use-value
-      (string-append "New " noun
-		     " name (an expression to be evaluated)")
+      (string-append "Try to " verb " a different " noun ".")
       (lambda (operand)
 	(within-continuation continuation
 	  (lambda ()
@@ -673,14 +672,13 @@ USA.
 		     (append! head
 			      (cons operand (cdr tail))))))))
       (let ((prompt
-	     (string-append "Try to " verb " a different " noun
-			    ".")))
+	     (string-append "New " noun
+			    " name (an expression to be evaluated)")))
 	(lambda ()
 	  (values (prompt-for-evaluated-expression prompt))))
     (lambda ()
       (with-restart 'retry
-	  (string-append "Try to " verb " the same " noun
-			 " again.")
+	  (string-append "Try to " verb " the same " noun " again.")
 	  (lambda ()
 	    (within-continuation continuation
 	      (lambda ()
-- 
2.25.1