diff --git a/wst/trunk/tests/test_suite/test_support.pas b/wst/trunk/tests/test_suite/test_support.pas
index 0017ec1bd..5a6899104 100644
--- a/wst/trunk/tests/test_suite/test_support.pas
+++ b/wst/trunk/tests/test_suite/test_support.pas
@@ -346,6 +346,7 @@ type
   TTest_TBase64StringExtRemotable = class(TTestCase)
   published
     procedure Equal();
+    procedure test_Assign();
     procedure SetBinaryData();
     procedure SetEncodedString();
   end;
@@ -2518,6 +2519,28 @@ begin
   end;
 end;
 
+procedure TTest_TBase64StringExtRemotable.test_Assign();
+const ITER = 100;
+var
+  i : Integer;
+  a, b : TBase64StringExtRemotable;
+begin
+  b := nil;
+  a := TBase64StringExtRemotable.Create();
+  try
+    b := TBase64StringExtRemotable.Create();
+    for i := 1 to ITER do begin
+      a.BinaryData := RandomValue(Random(500));
+      b.Assign(a);
+      CheckEquals(a.BinaryData, b.BinaryData);
+      CheckEquals(a.EncodedString, b.EncodedString);
+    end;
+  finally
+    FreeAndNil(b);
+    FreeAndNil(a);
+  end;
+end;
+
 initialization
   RegisterTest('Support',TTest_TBaseComplexRemotable.Suite);
   RegisterTest('Support',TTest_TStringBufferRemotable.Suite);