s/appled/applied/g
Doesn't fix the dircp problem though.

Reference: /n/atom/patch/applied/apatch-appled
Date: Wed Feb 19 23:23:41 CET 2014
Signed-off-by: root@davidrhoskin.com

--- /rc/bin/apatch/create	Wed Feb 19 23:22:59 2014
+++ /rc/bin/apatch/create	Wed Feb 19 23:23:01 2014
@@ -93,7 +93,7 @@
 
 ~ $flagv 1 && echo patchd $PD/$patch >[1=2]
 
-if(test -e $PD/$patch || test -e $PD/appled/$patch){
+if(test -e $PD/$patch || test -e $PD/applied/$patch){
 	if(~ $force n){
 		echo patch $patch already exists.
 		echo Use flag -f to force and redefine it
@@ -101,7 +101,7 @@
 	} >[1=2]
 	found=()
 	for(i in `{seq 1 100}){
-		if(! test -e $PD/$patch.$i || test -e $PD/appled/$patch.$i){
+		if(! test -e $PD/$patch.$i || test -e $PD/applied/$patch.$i){
 			patch = $patch.$i
 			found=1
 			break