diff --git a/clean.ks b/clean.ks
index 933a575..69cc372 100644
--- a/clean.ks
+++ b/clean.ks
@@ -8,7 +8,7 @@ function cleanDir {
 
   print "Entering '" + dir + "'.".
   cd(dir).
-  compileHere().
+  cleanHere().
   cd("..").
   print "Leaving '" + dir + "'.".
 }
@@ -24,7 +24,7 @@ function cleanHere {
 	deletepath(f).
       }
     } else if f:NAME[0] <> "." {
-      compileDir(f).
+      cleanDir(f).
     }
   }
 }