diff --git a/rtl/linux/bsdsysca.inc b/rtl/linux/bsdsysca.inc
index af6f6adac1..8d79325b0f 100644
--- a/rtl/linux/bsdsysca.inc
+++ b/rtl/linux/bsdsysca.inc
@@ -628,9 +628,21 @@ begin
  LinuxError:=Errno;
 end;
 
+function MUnMap (P : Pointer; Size : Longint) : Boolean;
+Var
+  Sr : Syscallregs;
+begin
+  Sr.reg2:=longint(P);
+  sr.reg3:=Size;
+  MUnMap:=syscall(syscall_nr_munmap,P,Size,0)=0;
+  LinuxError:=Errno;
+end;
 {
   $Log$
-  Revision 1.2  2000-04-16 16:10:01  marco
+  Revision 1.3  2000-05-25 19:59:57  michael
+  + Added munmap call
+
+  Revision 1.2  2000/04/16 16:10:01  marco
    * Some procedure were forgotten. FIxed
 
 }
diff --git a/rtl/linux/linsysca.inc b/rtl/linux/linsysca.inc
index 1889d9f757..0278477932 100644
--- a/rtl/linux/linsysca.inc
+++ b/rtl/linux/linsysca.inc
@@ -894,6 +894,15 @@ begin
   LinuxError:=Errno;
 end;
 
+function MUnMap (P : Pointer; Size : Longint) : Boolean;
+Var
+  Sr : Syscallregs;
+begin
+  Sr.reg2:=longint(P);
+  sr.reg3:=Size;
+  MUnMap:=syscall(syscall_nr_munmap,sr)=0;
+  LinuxError:=Errno;
+end;
 
 {--------------------------------
       Port IO functions
diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index c7c9224036..786a2c4e95 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -794,7 +794,7 @@ type
   end;
 
 function MMap(const m:tmmapargs):longint;
-
+function MUnMap (P : Pointer; Size : Longint) : Boolean;
 
 {**************************
      Port IO functions
@@ -2931,7 +2931,10 @@ End.
 
 {
   $Log$
-  Revision 1.70  2000-05-21 17:10:13  michael
+  Revision 1.71  2000-05-25 19:59:57  michael
+  + Added munmap call
+
+  Revision 1.70  2000/05/21 17:10:13  michael
   + AssignStream now always returns PID of spawned process
 
   Revision 1.69  2000/05/17 17:11:44  peter