diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm
index 6b1cb29a2..69d0cbd98 100644
--- a/lib/WebGUI/HTML.pm
+++ b/lib/WebGUI/HTML.pm
@@ -59,7 +59,9 @@ use WebGUI::Session;
 sub cleanSegment {
 	my ($style, $value);
 	$value = $_[0];
-	$value =~ s/\r/\n/g;
+	if ($value =~ s/\r/\n/g) {
+		$value =~ s/\n\n/\n/g
+	}
 	$value =~ m/(\<style.*?\/style\>)/ixsg;
 	$style = $1;
 	$value =~ s/\A.*?\<body.*?\>(.*?)/$style$1/ixsg;