diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index c19e91735..74ea719e7 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -24,6 +24,7 @@
  - fixed Calendar copy behavior.  In the Asset toolbar, Copy Just this Asset
    was broken.  This has been fixed.  As a side effect, in the Asset Manager
    the default behavior is to copy ONLY the Calendar, and none of the events.
+ - fixed: filtering of rich text areas very slow for large content
 
 7.6.4
  - Survey now will show progress and time limit.
diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm
index 5093392ae..67e4f8068 100644
--- a/lib/WebGUI/HTML.pm
+++ b/lib/WebGUI/HTML.pm
@@ -64,7 +64,7 @@ sub cleanSegment {
     my $html = shift;
     my $preserveStyleScript = shift;
     my $headers = "";
-    if ($html =~ s{(.*)<body\b.*?>}{}is && $preserveStyleScript) {
+    if ($html =~ s{^(.*)<body\b[^>]*>}{}is && $preserveStyleScript) {
         my $head = $1;
         # extract every link tag
         while ( $head =~ m{(<link\b[^>]+>)}isg ) {