diff --git a/rtl/objpas/sysstr.inc b/rtl/objpas/sysstr.inc
index e575035488..039d4211ed 100644
--- a/rtl/objpas/sysstr.inc
+++ b/rtl/objpas/sysstr.inc
@@ -883,6 +883,15 @@ begin
                 else
                   if CheckArg(vtPChar,false) then
                     hs:=Args[doarg].VPChar
+                else
+                  if CheckArg(vtPWideChar,false) then
+                    hs:=char(Args[doarg].VPWideChar^)
+                else
+                  if CheckArg(vtWideChar,false) then
+                    hs:=char(Args[doarg].VWideChar)
+                else
+                  if CheckArg(vtWidestring,false) then
+                    hs:=ansistring(Args[doarg].VWideString)
                 else
                   if CheckArg(vtAnsiString,true) then
                     hs:=ansistring(Args[doarg].VAnsiString);
@@ -1329,7 +1338,10 @@ const
 
 {
   $Log$
-  Revision 1.14  2002-01-24 12:33:53  jonas
+  Revision 1.15  2002-07-06 12:14:03  daniel
+  - Changes from Strasbourg
+
+  Revision 1.14  2002/01/24 12:33:53  jonas
     * adapted ranges of native types to int64 (e.g. high cardinal is no
       longer longint($ffffffff), but just $fffffff in psystem)
     * small additional fix in 64bit rangecheck code generation for 32 bit