--- toast	2003/08/26 18:44:01	1.183
+++ toast	2003/08/26 18:47:29	1.184
@@ -1317,7 +1317,7 @@
 {
   my($name, $version) = @_;
   defined($name) || error;
-  $name =~ /^\w+$/ || error("invalid package name: $name");
+  $name =~ /^[\w-]+$/ || error("invalid package name: $name");
   my($lcname) = lc($name);
 
   local(*XML, $_);