diff --git a/global-functions.rsc b/global-functions.rsc
index c9440ed7..cde2694a 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -1205,7 +1205,7 @@
   }
 
   :onerror Err {
-    /file/remove $DirName;
+    /file/remove [ find where name=$DirName ];
   } do={
     $LogPrint error $0 ("Removing directory '" . $DirName . "' failed: " . $Err);
     :return false;