diff --git a/lib/chibi/system.sld b/lib/chibi/system.sld
index 4d7a619e..fa8223ab 100644
--- a/lib/chibi/system.sld
+++ b/lib/chibi/system.sld
@@ -1,6 +1,7 @@
 
 (define-library (chibi system)
-  (export user-information user? user-name user-password
+  (export get-host-name
+          user-information user? user-name user-password
           user-id user-group-id user-gecos user-home user-shell
           group-information group-name group-password group-id
           current-user-id current-group-id
diff --git a/lib/chibi/system.stub b/lib/chibi/system.stub
index bcb2588d..23da1d33 100644
--- a/lib/chibi/system.stub
+++ b/lib/chibi/system.stub
@@ -4,6 +4,11 @@
 (c-system-include "grp.h")
 (c-system-include "sys/types.h")
 
+;;> Returns the standard hostname of the current processor.
+
+(define-c errno (get-host-name "gethostname")
+  ((result (array char (auto-expand arg1))) (value 256 int)))
+
 ;;> \section{\scheme{(user-information name-or-id)}}
 
 ;;> Returns the password entry for the given user.  \var{name-or-id}