diff --git a/test/test-configuration.script b/test/test-configuration.script
index 398b0d7c96615b1e3fffab58f922218b8ed2f78a..18252b38f47fdaa8739e729848f2b368f2c30441 100644
--- a/test/test-configuration.script
+++ b/test/test-configuration.script
@@ -1,7 +1,5 @@
 ;;; -*- Lisp -*-
 
-
-
 (in-package :asdf)
 (use-package :asdf-test)
 #+gcl2.6 (defmacro with-standard-io-syntax (&body body) `(progn ,@body))
@@ -52,6 +50,12 @@
           "dir9/dirb/")                 ; foo9 should /not/ be found -- not under :here :tree
     :collect (under-tmp-directory dir)))
 
+(defparameter *separator* (inter-directory-separator))
+(defun join-namestrings (namestrings)
+  (with-output-to-string (s)
+    (loop :for (n . morep) :on namestrings
+          :do (format s "~A~@[~C~]" n (and morep *separator*)))))
+
 (defun create-asd-files ()
   (loop
     :for d :in *tmp-asd-directories*
@@ -64,16 +68,19 @@
       (format s "(defsystem :foo~D)~%" i))))
 
 (progn
- (assert-equal (asdf::parse-output-translations-string "/foo:/bar::/baz:/quux")
+ (assert-equal (asdf::parse-output-translations-string
+                (join-namestrings '("/foo" "/bar" "" "/baz" "/quux")))
                '(:output-translations ("/foo" "/bar") :inherit-configuration
                  ("/baz" "/quux")))
- (assert-equal (asdf::parse-output-translations-string "/:")
+ (assert-equal (asdf::parse-output-translations-string
+                (join-namestrings '("/" "")))
                '(:output-translations ("/" nil) :ignore-inherited-configuration))
- (assert-equal (asdf::parse-output-translations-string "/::")
+ (assert-equal (asdf::parse-output-translations-string
+                (join-namestrings '("/" "" "")))
                '(:output-translations ("/" nil) :inherit-configuration))
- (assert-equal (asdf::parse-output-translations-string "/:/")
+ (assert-equal (asdf::parse-output-translations-string
+                (join-namestrings '("/" "/")))
                '(:output-translations ("/" "/") :ignore-inherited-configuration))
-
  (assert-equal (asdf::parse-output-translations-string
                 "(:output-translations (\"/\" \"/\") :ignore-inherited-configuration)")
                '(:output-translations ("/" "/") :ignore-inherited-configuration))
diff --git a/test/test-utilities.script b/test/test-utilities.script
index affb1e5368ec2655f018faa3d97ecff83a68a5a3..a77f1c3562a3a6cf00ba89684891cb70618af747 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -48,10 +48,11 @@
  (split-native-pathnames-string "foo:bar" :ensure-directory t)
  '(#p"foo/" #p"bar/"))
 (assert-pathnames-equal
- (split-native-pathnames-string "/foo:/bar" :want-absolute t)
+ (split-native-pathnames-string (strcat "/foo" (inter-directory-separator) "/bar") :want-absolute t)
  '(#p"/foo" #p"/bar"))
 (assert-pathnames-equal
- (split-native-pathnames-string "/foo:/bar" :want-absolute t :ensure-directory t)
+ (split-native-pathnames-string (strcat "/foo" (inter-directory-separator) "/bar")
+                                :want-absolute t :ensure-directory t)
  '(#p"/foo/" #p"/bar/"))
 (assert-equal
  (mapcar 'location-function-p