--- toast	2004/10/01 04:51:30	1.351
+++ toast	2004/10/02 22:58:58	1.352
@@ -3905,7 +3905,7 @@
 
   if(xmlcatalog)
   {
-    @subcats = grep(m!/catalog[^/]*$!, absls(path(armdir, qw(etc xml))));
+    @subcats = -d($xmldir) ? grep(m!/catalog[^/]*$!, absls($xmldir)) : ();
     my($dir) = path($armdir, qw[share xml]);
     dfs
     (