From f8b44b50cc109122e755d4de0f6891f3bdb16f6a Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 6 May 1992 14:03:36 +0000
Subject: [PATCH] Fix a problem in OS_current_user_name under Ultrix.

---
 v7/src/microcode/uxenv.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/uxenv.c b/v7/src/microcode/uxenv.c
index 4f2269698..1455c47cc 100644
--- a/v7/src/microcode/uxenv.c
+++ b/v7/src/microcode/uxenv.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxenv.c,v 1.6 1991/10/08 21:46:43 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxenv.c,v 1.7 1992/05/06 14:03:36 jinx Exp $
 
-Copyright (c) 1990-91 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -332,7 +332,7 @@ DEFUN_VOID (OS_current_user_name)
 {
   {
     CONST char * result = (UX_getlogin ());
-    if (result != 0)
+    if ((result != 0) && (*result != '\0'))
       return (result);
   }
   {
-- 
2.25.1