$NetBSD: patch-ah,v 1.1 2005/10/20 17:43:29 wiz Exp $

--- posix-process_identification.gpb.orig	2002-10-24 02:03:52.000000000 -0600
+++ posix-process_identification.gpb
@@ -213,7 +213,7 @@ package body POSIX.Process_Identificatio
       Name_Ptr : char_ptr;
    begin
       Name_Ptr := getlogin;
-      if (Name_Ptr = null) then Raise_POSIX_Error; end if;
+      if Name_Ptr = null then Raise_POSIX_Error; end if;
       return Form_POSIX_String (Name_Ptr);
    end Get_Login_Name;