diff --git a/code/search-list.lisp b/code/search-list.lisp
index ffa7c6244a28a82bc677d9df8c8961cffb9fe72f..673f7bf8cae48cedf93d9860af9c35f4e154bb8b 100644
--- a/code/search-list.lisp
+++ b/code/search-list.lisp
@@ -39,12 +39,13 @@
     (nstring-downcase dev)
     (setf (gethash dev *search-list-table*)
 	  (mapcar #'(lambda (x)
-		      (declare (simple-string x))
-		      (let* ((len (length x))
-			     (char (schar x (1- len))))
-			(if (or (char= char #\:) (char= char #\/))
-			    x
-			    (concatenate 'simple-string x "/"))))
+		      (let ((x (namestring x)))
+			(declare (simple-string x))
+			(let* ((len (length x))
+			       (char (schar x (1- len))))
+			  (if (or (char= char #\:) (char= char #\/))
+			      x
+			      (concatenate 'simple-string x "/")))))
 		  new-value)))
   new-value)