diff --git a/ChangeLog b/ChangeLog
index 189d7b7..6b6c386 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-26  Arvid Norberg <c99ang@cs.umu.se>
+
+        * src/base/random/cl_random_from.cc: ported to beos.
+
 2001-03-05  Richard Kreckel  <kreckel@ginac.de>
 
         * include/cln/modules.h (CL_JUMP_TO): Fix IA64 brokenness.
diff --git a/src/base/random/cl_random_from.cc b/src/base/random/cl_random_from.cc
index f796c25..7e3eac5 100644
--- a/src/base/random/cl_random_from.cc
+++ b/src/base/random/cl_random_from.cc
@@ -12,7 +12,7 @@
 #include "cl_base_config.h"
 #include "cl_low.h"
 
-#if defined(unix) || defined(__unix) || defined(_AIX) || defined(sinix) || (defined(_WIN32) && defined(__GNUC__))
+#if defined(unix) || defined(__unix) || defined(_AIX) || defined(sinix) || (defined(_WIN32) && defined(__GNUC__)) || defined(__BEOS__)
 
 #include <sys/types.h>
 #include <unistd.h> // declares getpid()
@@ -80,7 +80,7 @@ random_state::random_state ()
 {
 	var uint32 seed_hi;
 	var uint32 seed_lo;
-#if defined(unix) || defined(__unix) || defined(_AIX) || defined(sinix) || (defined(_WIN32) && defined(__GNUC__))
+#if defined(unix) || defined(__unix) || defined(_AIX) || defined(sinix) || (defined(_WIN32) && defined(__GNUC__)) || defined(__BEOS__)
 	seed_lo = ::get_seed();
 	seed_hi = (rand() // zufällige 31 Bit (bei UNIX_BSD) bzw. 16 Bit (bei UNIX_SYSV)
                           << 8) ^ (uintL)(getpid()); // ca. 8 Bit von der Process ID