* fix for r34373

git-svn-id: trunk@39850 -

packages/fcl-base/src/base64.pp

@@ -456,6 +456,8 @@ var
   Outstream : TStringStream;
   Encoder   : TBase64EncodingStream;
 begin
+  if Length(s)=0 then 
+    Exit('');
   Outstream:=TStringStream.Create('');
   try
     Encoder:=TBase64EncodingStream.create(outstream);