diff --git a/code/unix-glibc2.lisp b/code/unix-glibc2.lisp
index a20f06692882bd64c43749fbd30ea887e77f3bd9..15df8ad8f7b46d23ee50f2b816a87ec5abddf05f 100644
--- a/code/unix-glibc2.lisp
+++ b/code/unix-glibc2.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.22 2003/03/03 16:03:40 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.23 2003/03/05 15:54:52 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1790,7 +1790,9 @@ length LEN and type TYPE."
                  (extern-alien "lseek64" (function off-t int off-t int))
                  fd offset whence)))
     (if (minusp result)
-        (values nil (unix-get-errno))
+        (progn
+          (unix-get-errno)
+          (values nil unix-errno))
         (values result 0))))