diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t
index 02dc131e2..036f00619 100644
--- a/t/Asset/Asset.t
+++ b/t/Asset/Asset.t
@@ -283,6 +283,7 @@ my $origRequest = $session->{_request};
 my $newRequest = Test::MockObject->new();
 my $func;
 $newRequest->set_bound('body', \$func);
+$newRequest->set_bound('param', \$func);
 $session->{_request} = $newRequest;
 $func = 'add';
 is($importNode->addEditLabel, $i18n->get('add').' '.$importNode->getName, 'addEditLabel, use add mode');
diff --git a/t/Asset/AssetPackage.t b/t/Asset/AssetPackage.t
index 1e6bdf0c7..0141d1648 100644
--- a/t/Asset/AssetPackage.t
+++ b/t/Asset/AssetPackage.t
@@ -97,6 +97,7 @@ sub hack_session_request {
             return $id
         },
     );
+    $request->mock('param', sub { shift->body(@_) });
     $session->{_request} = $request;
 }
 
diff --git a/t/Macro/FormParam.t b/t/Macro/FormParam.t
index efc9bd06d..6ac46fcea 100644
--- a/t/Macro/FormParam.t
+++ b/t/Macro/FormParam.t
@@ -99,6 +99,7 @@ sub auto_check {
 			}
 		}
 	);
+    $request->mock('param', sub {shift->body(@_)});
 
 	$session->{_request} = $request;
 
diff --git a/t/Macro/PageTitle.t b/t/Macro/PageTitle.t
index 49768220e..6d7edaf8c 100644
--- a/t/Macro/PageTitle.t
+++ b/t/Macro/PageTitle.t
@@ -80,6 +80,7 @@ $request->mock('body',
 		return 0;
 	}
 );
+$request->mock('param', sub {shift->body(@_)});
 
 $session->{_request} = $request;
 
diff --git a/t/lib/WebGUI/Form_Checking.pm b/t/lib/WebGUI/Form_Checking.pm
index e936e46e0..e490ce390 100644
--- a/t/lib/WebGUI/Form_Checking.pm
+++ b/t/lib/WebGUI/Form_Checking.pm
@@ -26,6 +26,7 @@ sub auto_check {
 			}
 		}
 	);
+    $request->mock('param', sub {shift->body(@_)});
 
 	$session->{_request} = $request;
 
diff --git a/t/lib/WebGUI/PseudoRequest.pm b/t/lib/WebGUI/PseudoRequest.pm
index eaf9238e3..2ba252dfa 100644
--- a/t/lib/WebGUI/PseudoRequest.pm
+++ b/t/lib/WebGUI/PseudoRequest.pm
@@ -310,27 +310,7 @@ Compatibility method.  Works exactly like the body method.
 
 sub param {
 	my $self = shift;
-	my $value = shift;
-	return keys %{ $self->{param} } unless defined $value;
-	if ($self->{param}->{$value}) {
-        if (wantarray && ref $self->{param}->{$value} eq "ARRAY") {
-            return @{$self->{param}->{$value}};
-        }
-        elsif (ref $self->{param}->{$value} eq "ARRAY") {
-            return $self->{param}->{$value}->[0];
-        }
-        else {
-            return $self->{param}->{$value};
-        }
-    }
-    else {
-        if (wantarray) {
-            return ();
-        }
-        else {
-            return undef;
-        }
-    }
+    $self->body(@_);
 }
 
 #----------------------------------------------------------------------------
@@ -344,8 +324,7 @@ form variables and values.
 
 sub setup_param {
 	my $self = shift;
-	my $value = shift;
-	$self->{param} = $value;
+    $self->setup_body(@_);
 }
 
 #----------------------------------------------------------------------------