diff --git a/util/ChangeLog b/util/ChangeLog
index 69a2f9610..687daa1f5 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-02-21  David Shaw  <dshaw@jabberwocky.com>
 
 	* miscutil.c (hextobyte): Moved here from g10/misc.c so I can use
diff --git a/util/secmem.c b/util/secmem.c
index 2d260a382..91cd3eb99 100644
--- a/util/secmem.c
+++ b/util/secmem.c
@@ -140,7 +140,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 )