...

original commit: dfd579f2a8d03677d5698890f003952388a766c0

collects/framework/keymap.ss

@@ -380,12 +380,22 @@
 			(get-text-from-user
 			 "Goto Line"
 			 "Goto Line:")))])
-		(if (string? num-str)
+		(when (string? num-str)
-		    (let ([line-num (string->number num-str)])
+		  (let ([line-num (inexact->exact (string->number num-str))])
-		      (if line-num
+		    (cond
+		     [(and (number? line-num)
+			   (= line-num (floor line-num))
+			   (<= 1 line-num (+ (send edit last-line) 1)))
 		      (let ([pos (send edit line-start-position 
 				       (sub1 line-num))])
-			    (send edit set-position pos))))))
+			(send edit set-position pos))]
+		     [else
+		      (message-box
+		       "Goto Line"
+		       (format "~a is not an integer between 1 and ~a"
+			       num-str
+			       (+ (send edit last-line) 1)))]))))
+
 	      #t)]
 	   [goto-position
 	    (lambda (edit event)

collects/framework/main.ss

@@ -114,7 +114,7 @@
 		(at-most-one (void) 
 			     (lambda ()
 			       (exit:on-exit)
-			       (exit)))
+			       (queue-callback (lambda () (exit)))))
 		(void))))
     
     (exit:insert-can?-callback