diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 338ae4848..d444bec49 100644
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1113,6 +1113,7 @@ cl_symbols[] = {
 {SYS_ "GET-STRING-INPUT-STREAM-INDEX", SI_ORDINARY, si_get_string_input_stream_index, 1, OBJNULL},
 {SYS_ "GETENV", SI_ORDINARY, si_getenv, 1, OBJNULL},
 {SYS_ "GETCWD", SI_ORDINARY, si_getcwd, 0, OBJNULL},
+{SYS_ "GETPID", SI_ORDINARY, si_getpid, 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-ENV", SI_ORDINARY, si_ihs_env, 1, OBJNULL},
diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index baa7c2ffb..d642744d5 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -43,6 +43,12 @@ si_system(cl_object cmd)
 	@(return MAKE_FIXNUM(code >> 8))
 }
 
+cl_object
+si_getpid(void)
+{
+	@(return MAKE_FIXNUM(getpid()))
+}
+
 cl_object
 si_open_pipe(cl_object cmd)
 {
diff --git a/src/h/external.h b/src/h/external.h
index 8171afdf3..30c38bc25 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -1448,6 +1448,7 @@ extern cl_object cl_file_write_date(cl_object file);
 extern cl_object cl_file_author(cl_object file);
 extern cl_object si_file_kind(cl_object pathname, cl_object follow_links);
 extern cl_object si_getcwd(void);
+extern cl_object si_getpid(void);
 extern cl_object si_chdir _ARGS((cl_narg narg, cl_object directory, ...));
 extern cl_object si_mkdir(cl_object directory, cl_object mode);
 extern cl_object cl_directory _ARGS((cl_narg narg, cl_object directory, ...));