diff --git a/lib/WebGUI/Form/CheckList.pm b/lib/WebGUI/Form/CheckList.pm
index 183838410..d6bd41838 100644
--- a/lib/WebGUI/Form/CheckList.pm
+++ b/lib/WebGUI/Form/CheckList.pm
@@ -146,9 +146,12 @@ sub toHtml {
     }
     my $i=0;
     my $options = $self->getOptions;
+    		$self->session->errorHandler->warn(JSON->new->encode($options));
+
 	foreach my $key (keys %{$options}) {
 	    $i++;
-        my $checked = (grep { $_ eq $key } @{ $self->correctValues($self->get('value')) })
+        my @values = $self->getDefaultValue;
+        my $checked = (grep { $_ eq $key } @values)
                     ? 1
                     : 0
                     ;
diff --git a/lib/WebGUI/Form/List.pm b/lib/WebGUI/Form/List.pm
index 9199f202b..40b251fff 100644
--- a/lib/WebGUI/Form/List.pm
+++ b/lib/WebGUI/Form/List.pm
@@ -168,7 +168,8 @@ sub getOptions {
     }
     else {
         foreach my $line (split "\n", $possibleValues) {
-            if ($line =~ m/(.*)|(.*)/) {
+			$line =~ s/^(.*)\r|\s*$/$1/;
+            if ($line =~ m/(.*)\|(.*)/) {
                 $options{$1} = $2;
             }
             else {
@@ -208,6 +209,7 @@ sub getValue {
             @values = @{$value};
         }
         else {
+			$value =~ s/\r//g;
             @values = split "\n", $value;
         }
     }
@@ -240,6 +242,7 @@ sub getDefaultValue {
                 @values = @{$value};
             }
             else {
+				$value =~ s/\r//g;
                 @values = split "\n", $value;
             }
         }
diff --git a/lib/WebGUI/Form/SelectSlider.pm b/lib/WebGUI/Form/SelectSlider.pm
index d2dd142b1..b60c95f5b 100644
--- a/lib/WebGUI/Form/SelectSlider.pm
+++ b/lib/WebGUI/Form/SelectSlider.pm
@@ -162,6 +162,7 @@ sub getOptions {
     }
     else {
         foreach my $line (split "\n", $possibleValues) {
+            $line =~ s/^(.*)\r|\s*$/$1/;
             if ($line =~ m/(.*)|(.*)/) {
                 $options{$1} = $2;
             }