diff --git a/util/ChangeLog b/util/ChangeLog
index dfe03337b..08c999ee3 100644
--- a/util/ChangeLog
+++ b/util/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-24  Werner Koch  <wk@gnupg.org>
+
+	* secmem.c (lock_pool) [_AIX]: Also set errno.
+
 2004-01-13  David Shaw  <dshaw@localhost.localdomain>
 
 	* argparse.c (initialize): Avoid a number of -Wformat-nonliteral
diff --git a/util/secmem.c b/util/secmem.c
index e1ec6c93c..dda84202a 100644
--- a/util/secmem.c
+++ b/util/secmem.c
@@ -138,7 +138,8 @@ lock_pool( void *p, size_t n )
        processes are clogging up the memory.  To get this problem out
        of the way we simply don't try to lock the memory at all.
        */    
-    err = EPERM;
+    errno = EPERM;
+    err = errno;
 # else /*!_AIX*/
     err = plock( DATLOCK );
     if( err && errno )