--- toast	2003/10/13 05:15:58	1.216
+++ toast	2003/10/13 05:35:37	1.217
@@ -1207,19 +1207,20 @@
 sub isname($)
 {
   my($name) = @_;
-  -d(pkgpath($name));
+  defined($name) && -d(pkgpath($name));
 }
 
 sub isversion($$)
 {
   my($name, $version) = @_;
-  -d(pkgpath($name, $version));
+  defined($name) && defined($version) && -d(pkgpath($name, $version));
 }
 
 sub isbuild($$$)
 {
   my($name, $version, $build) = @_;
-  -d(pkgpath($name, $version, $build));
+  defined($name) && defined($version) && defined($build) &&
+      -d(pkgpath($name, $version, $build));
 }
 
 ##############################################################################
@@ -3617,8 +3618,8 @@
   for(@_)
   {
     my($name, $version, $build, @urls) = @$_;
-    error("no such package: ", pkgname($name, $version)) unless
-        defined($version) ? isversion($name, $version) : isname($name)
+    error("no such package: ", pkgname($name, $version))
+        unless defined($version) ? isversion($name, $version) : isname($name);
   }
   @_;
 }