diff --git a/rtl/amiga/system.pas b/rtl/amiga/system.pas
index 8b6ca86b2e..7e5b9c7941 100644
--- a/rtl/amiga/system.pas
+++ b/rtl/amiga/system.pas
@@ -1820,12 +1820,18 @@ begin
    argc:=GetParamCount(args);
    OrigDir := 0;
    FileList := nil;
+{$ifdef HASVARIANT}
+   initvariantmanager;
+{$endif HASVARIANT}
 end.
 
 
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:16  peter
+  Revision 1.5  2002-10-13 09:25:14  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.4  2002/09/07 16:01:16  peter
     * old logs removed and tabs fixed
 
-}
+}
\ No newline at end of file
diff --git a/rtl/atari/system.pas b/rtl/atari/system.pas
index 19ab599e63..77ed39a53e 100644
--- a/rtl/atari/system.pas
+++ b/rtl/atari/system.pas
@@ -752,12 +752,18 @@ begin
   InOutRes:=0;
   errno := 0;
 { Setup command line arguments }
- argc:=GetParamCount(args);
+  argc:=GetParamCount(args);
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}
 end.
 
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:16  peter
+  Revision 1.5  2002-10-13 09:25:23  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.4  2002/09/07 16:01:16  peter
     * old logs removed and tabs fixed
 
-}
+}
\ No newline at end of file
diff --git a/rtl/beos/system.pp b/rtl/beos/system.pp
index 83f26a8b60..548d564bd8 100644
--- a/rtl/beos/system.pp
+++ b/rtl/beos/system.pp
@@ -519,10 +519,16 @@ begin
 
 { Reset IO Error }
   InOutRes:=0;
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}  
 end.
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:17  peter
+  Revision 1.5  2002-10-13 09:25:31  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.4  2002/09/07 16:01:17  peter
     * old logs removed and tabs fixed
 
-}
+}
\ No newline at end of file
diff --git a/rtl/bsd/system.pp b/rtl/bsd/system.pp
index 7c95451e4a..b1d04a84b6 100644
--- a/rtl/bsd/system.pp
+++ b/rtl/bsd/system.pp
@@ -81,14 +81,20 @@ Begin
   OpenStdIO(StdErr,fmOutput,StdErrorHandle);
 { Reset IO Error }
   InOutRes:=0;
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}  
 End.
 
 {
   $Log$
-  Revision 1.2  2002-09-07 16:01:17  peter
+  Revision 1.3  2002-10-13 09:25:39  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.2  2002/09/07 16:01:17  peter
     * old logs removed and tabs fixed
 
   Revision 1.1  2002/08/19 12:29:11  marco
    * First working POSIX *BSD system unit.
 
-}
+}
\ No newline at end of file
diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index 4079ab3578..66724adfc3 100644
--- a/rtl/go32v2/system.pp
+++ b/rtl/go32v2/system.pp
@@ -1504,10 +1504,16 @@ Begin
   InitDPMIExcp;
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}
 End.
 {
   $Log$
-  Revision 1.21  2002-09-07 21:32:08  carl
+  Revision 1.22  2002-10-13 09:28:44  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.21  2002/09/07 21:32:08  carl
     - removed unused defines
 
   Revision 1.20  2002/09/07 16:01:19  peter
diff --git a/rtl/netware/system.pp b/rtl/netware/system.pp
index 776e9e5604..115b99b99a 100644
--- a/rtl/netware/system.pp
+++ b/rtl/netware/system.pp
@@ -783,10 +783,16 @@ Begin
   IsLibrary := FALSE;
   IsConsole := TRUE;
   ExitCode  := 0;
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}
 End.
 {
   $Log$
-  Revision 1.14  2002-09-07 16:01:21  peter
+  Revision 1.15  2002-10-13 09:28:45  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.14  2002/09/07 16:01:21  peter
     * old logs removed and tabs fixed
 
   Revision 1.13  2002/07/01 16:29:05  peter
diff --git a/rtl/os2/system.pas b/rtl/os2/system.pas
index 11c7f6f8e5..63fdb66bf5 100644
--- a/rtl/os2/system.pas
+++ b/rtl/os2/system.pas
@@ -1018,10 +1018,17 @@ begin
 
     { no I/O-Error }
     inoutres:=0;
+
+{$ifdef HASVARIANT}
+    initvariantmanager;
+{$endif HASVARIANT}
 end.
 {
   $Log$
-  Revision 1.23  2002-09-07 16:01:25  peter
+  Revision 1.24  2002-10-13 09:28:45  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.23  2002/09/07 16:01:25  peter
     * old logs removed and tabs fixed
 
   Revision 1.22  2002/07/01 16:29:05  peter
diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 8b91ff39f6..2033a05ef0 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -975,7 +975,7 @@ procedure Exe_entry;[public, alias : '_FPC_EXE_Entry'];
      { This strange construction is needed to solve the _SS problem
        with a smartlinked syswin32 (PFV) }
      asm
-         { allocate space for an excption frame }
+         { allocate space for an exception frame }
         pushl $0
         pushl %fs:(0)
         { movl  %esp,%fs:(0)
@@ -1573,7 +1573,10 @@ end.
 
 {
   $Log$
-  Revision 1.32  2002-09-07 21:28:10  carl
+  Revision 1.33  2002-10-13 09:28:45  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.32  2002/09/07 21:28:10  carl
     - removed os_types
     * fix range check errors