X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=un-merge-usr.lsp;h=1187cd8cc3edfca19329e2104c87cd2e174f977e;hb=339dde354339c128de2e689a8064c83856790efa;hp=4cb58f0580d3e95249278c4be1e6633f4660e669;hpb=ae0a0fd04881faf263a8e0e58067001323630020;p=rrq%2Fnewlisp-ftw.git

diff --git a/un-merge-usr.lsp b/un-merge-usr.lsp
index 4cb58f0..1187cd8 100644
--- a/un-merge-usr.lsp
+++ b/un-merge-usr.lsp
@@ -72,7 +72,7 @@
 
 # Ensure the root directories still/again exist 
 (dolist (D DIRS)
-  (! (format "/bin/touch %s /usr%s" D D)))
+  (! (format "/bin/mkdir -p %s /usr%s" D D)))
 
 (print "Push enter to reboot: ")
 (read-line)