diff --git a/rtl/objpas/varutils.inc b/rtl/objpas/varutils.inc
index 1fc20954fd..cb429affd4 100644
--- a/rtl/objpas/varutils.inc
+++ b/rtl/objpas/varutils.inc
@@ -33,15 +33,13 @@ end;
 Procedure MakeWideString (Var P : PWideChar; W : WideString);
 
 begin
-  WideString(Pointer(P)):=W;
-  UniqueString(WideString(P));
+  P:=W;
 end;
 
 Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar);
 
 begin
-  WideString(Pointer(PDest)):=WideString(Pointer(PSource));
-  UniqueString(WideString(PDest));
+  PDest:=WideString(PSource);
 end;
 
 { ---------------------------------------------------------------------
@@ -711,7 +709,10 @@ end;
 {$endif HASVARIANT}
 {
   $Log$
-  Revision 1.8  2002-09-07 16:01:23  peter
+  Revision 1.9  2002-10-11 12:21:55  florian
+    * fixes for new widestring handling
+
+  Revision 1.8  2002/09/07 16:01:23  peter
     * old logs removed and tabs fixed
 
 }