diff --git a/uiop/os.lisp b/uiop/os.lisp
index b97242bd0c22b3f19009ed99e97a9131e02781ba..0de9bd34103eb260c509056e12011befb7bbb3ba 100644
--- a/uiop/os.lisp
+++ b/uiop/os.lisp
@@ -267,7 +267,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
   (defun chdir (x)
     "Change current directory, as per POSIX chdir(2), to a given pathname object"
     (if-let (x (pathname x))
-      (or #+abcl (java:jstatic "setProperty" "java.lang.System" "user.dir" (native-namestring x))
+      (or #+abcl (java:jstatic "setProperty" "java.lang.System" "user.dir" (namestring x))
           #+allegro (excl:chdir x)
           #+clisp (ext:cd x)
           #+clozure (setf (ccl:current-directory) x)