diff --git a/collects/embedded-gui/doc.txt b/collects/embedded-gui/doc.txt
index f696e62c..f528ab78 100644
--- a/collects/embedded-gui/doc.txt
+++ b/collects/embedded-gui/doc.txt
@@ -93,8 +93,8 @@ Add the given alignment as a child after the existing child
 > (send an-alignment-parent delete-child child) -> void
   child : (is-a?/c alignment<%>)
 
-Deletes a child from the the alignments
-      
+Deletes a child from the alignments
+
 > (send an-alignment-parent is-shown?) -> boolean?
 
 True if the alignment is being shown (accounting for its parent being shown)
diff --git a/collects/embedded-gui/private/aligned-pasteboard.ss b/collects/embedded-gui/private/aligned-pasteboard.ss
index 363b9d27..b742f880 100644
--- a/collects/embedded-gui/private/aligned-pasteboard.ss
+++ b/collects/embedded-gui/private/aligned-pasteboard.ss
@@ -74,7 +74,7 @@
               (set! alignment child))))
       
       #;((is-a?/c alignment<%>) . -> . void?)
-      ;; Deletes a child from the the alignments
+      ;; Deletes a child from the alignments
       (define/public (delete-child child)
         (if alignment
             (if (eq? child alignment)
diff --git a/collects/embedded-gui/private/interface.ss b/collects/embedded-gui/private/interface.ss
index cb41a94b..bbc1b498 100644
--- a/collects/embedded-gui/private/interface.ss
+++ b/collects/embedded-gui/private/interface.ss
@@ -66,7 +66,7 @@
       add-child
       
       #;((is-a?/c alignment<%>) . -> . void?)
-      ;; Deletes a child from the the alignments
+      ;; Deletes a child from the alignments
       delete-child
       
       #;(-> boolean?)
diff --git a/collects/embedded-gui/private/verthoriz-alignment.ss b/collects/embedded-gui/private/verthoriz-alignment.ss
index def03e25..145c7322 100644
--- a/collects/embedded-gui/private/verthoriz-alignment.ss
+++ b/collects/embedded-gui/private/verthoriz-alignment.ss
@@ -137,7 +137,7 @@
               (link (send tail prev) child tail))))
       
       #;((is-a?/c alignment<%>) . -> . void?)
-      ;; Deletes a child from the the alignments
+      ;; Deletes a child from the alignments
       (define/public (delete-child child)
         (send child show/hide false)
         (let ([p (send child prev)]
diff --git a/collects/embedded-gui/scribblings/alignment-parent.scrbl b/collects/embedded-gui/scribblings/alignment-parent.scrbl
index 4cbf614f..9e2d5ad1 100644
--- a/collects/embedded-gui/scribblings/alignment-parent.scrbl
+++ b/collects/embedded-gui/scribblings/alignment-parent.scrbl
@@ -13,7 +13,7 @@ Add the given alignment as a child after the existing child.}
 
 @defmethod[(delete-child [child (is-a?/c alignment<%>)]) void?]{
 
-Deletes a child from the the alignments.}
+Deletes a child from the alignments.}
 
 @defmethod[(is-shown?) boolean?]{
 
diff --git a/collects/framework/main.ss b/collects/framework/main.ss
index c85f5de8..3ef72157 100644
--- a/collects/framework/main.ss
+++ b/collects/framework/main.ss
@@ -1428,7 +1428,7 @@
          
          This function is not symmetric in red, green, and blue, so it is
          important to pass red, green, and blue components of the colors in
-         the the proper order.  The first three arguments are red, green and
+         the proper order.  The first three arguments are red, green and
          blue for the first color, respectively, and the second three
          arguments are red green and blue for the second color,
          respectively.})
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 391bf360..f2e48fd1 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -382,7 +382,7 @@ WARNING: printf is rebound in the body of the unit to always
                   (and (string? color)
                        (send the-color-database find-color color)))
         (error 'highlight-range
-               "expected a color or a string in the the-color-database for the third argument, got ~e" color))
+               "expected a color or a string in the-color-database for the third argument, got ~e" color))
       (unless (memq style '(rectangle hollow-ellipse ellipse dot))
         (error 'highlight-range
                "expected one of 'rectangle, 'ellipse 'hollow-ellipse, or 'dot as the style, got ~e" style))
diff --git a/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl b/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl
index 00b32bbe..13a4c7f8 100644
--- a/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl
+++ b/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl
@@ -98,7 +98,7 @@ destination snip's bounding box where a straight line
 between the centers of the snip would intersect.
 
 The @scheme[arrow-point-ok?] function returns @scheme[#t]
-when the point specified by its arguments is inside the the
+when the point specified by its arguments is inside the
 smallest rectangle that covers both the source and
 destination snips, but is outside of both of the rectangles
 that surround the source and destination snips themselves.
diff --git a/collects/mrlib/scribblings/name-message.scrbl b/collects/mrlib/scribblings/name-message.scrbl
index a63945bb..9f7c790c 100644
--- a/collects/mrlib/scribblings/name-message.scrbl
+++ b/collects/mrlib/scribblings/name-message.scrbl
@@ -67,7 +67,7 @@ saying that there is no file name until the file is saved.}
 @defmethod[(get-background-color) (or/c false/c (is-a/c color%) string?)]{
 
 The result of this method is used for the background color
-when redrawing the the name message. If it is @scheme[#f], the
+when redrawing the name message. If it is @scheme[#f], the
 OS's default panel background is used.
 
 }
diff --git a/collects/scribblings/framework/text.scrbl b/collects/scribblings/framework/text.scrbl
index cece0eb2..8dcb5ed6 100644
--- a/collects/scribblings/framework/text.scrbl
+++ b/collects/scribblings/framework/text.scrbl
@@ -387,7 +387,7 @@
   @method[text:searching<%> set-replace-start]) and the
   closest search hit following @tt{replace-start} does not
   collapse with an adjacent bubble,the result will include
-  that bubble. If the the closest search hit after
+  that bubble. If the closest search hit after
   @tt{replace-start} is collpased with another bubble, then
   the search hit is not reflected in the result.
 
diff --git a/collects/tests/mred/canvas-steps.txt b/collects/tests/mred/canvas-steps.txt
index 3b5a5a3e..c7736642 100644
--- a/collects/tests/mred/canvas-steps.txt
+++ b/collects/tests/mred/canvas-steps.txt
@@ -128,7 +128,7 @@ Move all scrolls to 1 step beyond the smallest setting.
 Check "swap". Now, the top canvas is managed and the bottom canvas is
  unmanaged. But the top canvas's area is so small that its scrollbars
  are always disabled. (It may also be clipped to the tiny 10x10 box.)
- The bottom canvas's scrollbars should now act the the top ones used
+ The bottom canvas's scrollbars should now act the top ones used
  to: there are 20 steps in each direction and the `V:' and `H:' values
  change as the scrolls are moved.
 
diff --git a/collects/tests/mred/draw-info.txt b/collects/tests/mred/draw-info.txt
index 382d223f..59297dc8 100644
--- a/collects/tests/mred/draw-info.txt
+++ b/collects/tests/mred/draw-info.txt
@@ -38,7 +38,7 @@ The drawing area should have the following features:
     pattern; the third shape should be a semi-circle with no outline
     on the bottom edge.
 
-  Further right (to the the right of the columns) should appear an
+  Further right (to the right of the columns) should appear an
     X, a cross, and an narrow X tilted NW. Each should be drawn in
     green (5 pixels wide) with a thin black line centered along each
     green line.  Scaling the picture should make the green line thicker,
@@ -208,7 +208,7 @@ Clipping should slip the drawing to a particular shape:
 
    wedge - pi/4 to 3pi/4 of circle
 
-   round rectangle - a rounded rect inscribed in the the blue box for
+   round rectangle - a rounded rect inscribed in the blue box for
      testing stipples
 
    unions, intersects, subtracts - hopefully obvious