diff --git a/rtl/dos/go32v2/system.pp b/rtl/dos/go32v2/system.pp
index a22e3e8d64..749eb128ec 100644
--- a/rtl/dos/go32v2/system.pp
+++ b/rtl/dos/go32v2/system.pp
@@ -91,9 +91,11 @@ var go32_info_block : t_go32_info_block;
           reales,realds,realfs,realgs,
           realip,realcs,realsp,realss : word;
        end;
-var
-         dos_argv0 : pchar;
-         environ : ppchar;
+    var
+       dos_argv0 : pchar;
+       environ : ppchar;
+       { Running under Win95 ? }
+       Win95 : boolean;
 
     function do_write(h,addr,len : longint) : longint;
     function do_read(h,addr,len : longint) : longint;
@@ -113,9 +115,6 @@ var
 
     const carryflag = 1;
 
-    var
-      Win95 : boolean;  {Running under Win95?}
-
 {$S-}
     procedure st1(stack_size : longint);[public,alias: 'STACKCHECK'];
 
@@ -788,6 +787,7 @@ begin
 end;
 
 
+{ truncate at a given position }
 procedure do_truncate (handle,pos:longint);
 var
   regs : trealregs;
@@ -1042,7 +1042,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.2  1998-03-30 21:49:12  florian
+  Revision 1.3  1998-05-04 16:21:54  florian
+    + win95 flag to the interface moved
+
+  Revision 1.2  1998/03/30 21:49:12  florian
     + seg* added
 
   Revision 1.1.1.1  1998/03/25 11:18:42  root