diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss
index f8909816..58619ff2 100644
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@@ -715,7 +715,7 @@
 	  (map-meta "w" "copy-clipboard")
 	  (map "a:c" "copy-clipboard")
 	  (map "d:c" "copy-clipboard")
-	  
+	 
 	  (map "s:delete" "cut-clipboard")
 	  (map "c:insert" "copy-clipboard")
 	  (map "s:insert" "paste-clipboard")
diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss
index f7d50e34..b9d8233d 100644
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@@ -566,7 +566,7 @@
 		  (= (paragraph-start-position (position-paragraph start-pos))
 		     start-pos)])
 	     (let* ([first-para (position-paragraph start-pos)]
-		    [last-para (position-paragraph end-pos)])
+		    [last-para (position-paragraph end-pos #t)])
 	       (let para-loop ([curr-para first-para])
 		 (if (<= curr-para last-para)
 		     (let ([first-on-para (paragraph-start-position curr-para)])
@@ -584,7 +584,7 @@
 	   (begin-edit-sequence)
 	   (let ([last-pos (last-position)]
 		 [first-para (position-paragraph start-pos)]
-		 [last-para (position-paragraph end-pos)])
+		 [last-para (position-paragraph end-pos #t)])
 	     (let para-loop ([curr-para first-para])
 	       (if (<= curr-para last-para)
 		   (let ([first-on-para