allow patch names to start with a digit

Reference: /n/atom/patch/applied2013/patchnamdig
Date: Fri Sep 20 16:32:49 CES 2013
Signed-off-by: quanstro@quanstro.net

--- /rc/bin/apatch/create	Fri Sep 20 16:32:44 2013
+++ /rc/bin/apatch/create	Fri Sep 20 16:32:44 2013
@@ -27,7 +27,7 @@
 email=$2
 * = $*(3-)
 
-validate 'patch name' $patch '^[a-zA-Z][a-z_0-9.\-]+$'
+validate 'patch name' $patch '^[a-zA-Z0-9][a-z_0-9.\-]+$'
 validate email $email '^(-|[A-Za-z0-9.\-+]+@[A-Za-z0-9.\-+]+)$'
 
 mountfs
@@ -183,7 +183,7 @@
 echo $patch >> /dist/apatch/applied
 echo $d locally applied.
 
-#	@{cd $PD/$1 && $patch/diffemails} |
+#	@{builtin cd $PD/$1 && $patch/diffemails} |
 #		mail -s 'new patch: '^$PD/$1 $M
 
 fn sigexit sigint