Index: src/pathname.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/pathname.d,v
retrieving revision 1.393
diff -u -d -u -r1.393 pathname.d
--- src/pathname.d	12 Jan 2006 19:58:50 -0000	1.393
+++ src/pathname.d	1 Sep 2006 22:08:17 -0000
@@ -2703,7 +2703,7 @@
   SDOUT("merge_dirs:",p_directory);
   SDOUT("merge_dirs:",d_directory);
   if (called_from_make_pathname) {
-    if (missingp(p_directory)) /* pathname-subdirs not given? */
+    if (!boundp(p_directory)) /* pathname-subdirs not given? */
       new_subdirs = d_directory; /* use defaults-subdirs */
   } else if (!wildp) {
     if (nullp(p_directory) /* is pathname-subdirs trivial? */
@@ -2876,7 +2876,7 @@
     { /* directories do not match: new-directory := pathname-directory */
       var object dir = xpathname_directory(p_log,p);
       TheLogpathname(newp)->pathname_directory =
-        (missingp(dir) ? xpathname_directory(d_log,d) : dir);
+        (!SPECIFIED(dir) ? xpathname_directory(d_log,d) : dir);
       goto ldirectories_OK;
     }
   lmatch_directories: