From c4eb71d418c5cb89fdbaa56b98e82be6b0b9d666 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Feb 1996 21:56:57 +0000
Subject: [PATCH] Fix long-standing bug in OS/HOSTNAME.

---
 v7/src/edwin/unix.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index ac72d8359..4a9c0ff52 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.62 1996/02/27 21:05:56 cph Exp $
+;;;	$Id: unix.scm,v 1.63 1996/02/27 21:56:57 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -762,8 +762,9 @@ option, instead taking -P <filename>."
       "/usr/lib/sendmail"
       "fakemail"))
 
-(define os/hostname
-  (ucode-primitive full-hostname 0))
+(define (os/hostname)
+  (or ((ucode-primitive full-hostname 0))
+      ((ucode-primitive hostname 0))))
 
 (define (os/ls-file-time-string time)
   (let ((dt (decode-file-time time))
-- 
2.25.1