diff --git a/tests/tests.lisp b/tests/tests.lisp
index 2710a8f832812b0f10a3f8deee95fa294fca2270..7d0c3997754a2d0092e4fa24492c64a370a063d1 100644
--- a/tests/tests.lisp
+++ b/tests/tests.lisp
@@ -59,6 +59,6 @@
 (defun our-getuid ()
   #+sbcl (sb-unix:unix-getuid)
   #+cmu (unix:unix-getuid)
-  #+clisp (posix:getuid)
+  #+clisp (posix:uid)
   #+allegro (excl.osi:getuid)
   #-(or sbcl cmu clisp allegro) 0) ; A sane enough default for testing?