diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 86db3b6c7..42a726903 100755
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1120,6 +1120,7 @@ cl_symbols[] = {
 {EXT_ "GETENV", SI_ORDINARY, si_getenv, 1, OBJNULL},
 {EXT_ "GETCWD", SI_ORDINARY, si_getcwd, -1, OBJNULL},
 {SYS_ "GETPID", SI_ORDINARY, si_getpid, 0, OBJNULL},
+{SYS_ "GETUID", SI_ORDINARY, si_getuid, 0, OBJNULL},
 {SYS_ "HASH-SET", SI_ORDINARY, si_hash_set, 3, OBJNULL},
 {SYS_ "HASH-TABLE-ITERATOR", SI_ORDINARY, si_hash_table_iterator, 1, OBJNULL},
 {SYS_ "IHS-BDS", SI_ORDINARY, si_ihs_bds, 1, OBJNULL},
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 6c49601d8..e98623e7c 100755
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -1120,6 +1120,7 @@ cl_symbols[] = {
 {EXT_ "GETENV","si_getenv"},
 {EXT_ "GETCWD","si_getcwd"},
 {SYS_ "GETPID","si_getpid"},
+{SYS_ "GETUID","si_getuid"},
 {SYS_ "HASH-SET","si_hash_set"},
 {SYS_ "HASH-TABLE-ITERATOR","si_hash_table_iterator"},
 {SYS_ "IHS-BDS","si_ihs_bds"},
diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 3f7bfc472..dfdfec469 100755
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -54,6 +54,12 @@ si_getpid(void)
 	@(return MAKE_FIXNUM(getpid()))
 }
 
+cl_object
+si_getuid(void)
+{
+	@(return ecl_make_integer(getuid()));
+}
+
 cl_object
 si_make_pipe()
 {
diff --git a/src/h/external.h b/src/h/external.h
index e18af053d..81cec7572 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -1735,6 +1735,7 @@ extern ECL_API cl_object cl_file_author(cl_object file);
 extern ECL_API cl_object si_file_kind(cl_object pathname, cl_object follow_links);
 extern ECL_API cl_object si_getcwd _ARGS((cl_narg narg, ...));
 extern ECL_API cl_object si_getpid(void);
+extern ECL_API cl_object si_getuid(void);
 extern ECL_API cl_object si_chdir _ARGS((cl_narg narg, cl_object directory, ...));
 extern ECL_API cl_object si_mkdir(cl_object directory, cl_object mode);
 extern ECL_API cl_object cl_directory _ARGS((cl_narg narg, cl_object directory, ...));