diff --git a/test/script-support.lisp b/test/script-support.lisp
index c60796f313e37b49c54a1671b9d20342265caa94..4409f3dea137abaafbe138b6ccde12aaff34ac89 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -231,7 +231,7 @@ Some constraints:
                                  (let ((value (_getenv name)))
                                    (unless (ccl:%null-ptr-p value)
                                      (ccl:%get-cstring value))))
-           #+mkcl (#.(or (find-symbol* 'getenv :si nil) (find-symbol* 'getenv :mk-ext nil)) x)
+           #+mkcl (#.(or (find-symbol "GETENV" :si) (find-symbol "GETENV" :mk-ext)) x)
            #+sbcl (sb-ext:posix-getenv x)
            #-(or abcl allegro clasp clisp clozure cmucl cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
            (error "~S is not supported on your implementation" 'getenv)))