diff --git a/test/test-utilities.script b/test/test-utilities.script
index 6be8fc89a3ff4f510596096bbb0398d2be20f281..7c4957619e321b188574fd1ea270d058e32b67e9 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -36,6 +36,7 @@
   (simple-warning (c)
     (assert (search "Requested version ~S but ~S has no version" (simple-condition-format-control c))))
   (:no-error (x)
+    (declare (ignore x))
     (error "version-satisfies must warn when given component without version")))
 (assert (version<= "2.0" (asdf-version)))
 (assert (not (version-satisfies (asdf-version) "666")))
@@ -257,7 +258,8 @@
   (assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d")))))
   (assert (base-string-p (strcat (basify "ab") #\c #\d))))
 
-(or #+os-windows (equalp *test-directory* (getcwd)) ;; Avoid C:\Users vs C:\users on SBCL.
+(or #+os-windows ;; Avoid C:\Users vs C:\users on SBCL.
+    (equalp (namestring *test-directory*) (namestring (getcwd)))
     (assert-pathname-equal *test-directory* (getcwd)))
 
 (assert-equal +crlf+ (map 'string 'code-char '(13 10)))