diff --git a/global-functions.rsc b/global-functions.rsc
index 271e3a2..f0256fc 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -1052,10 +1052,10 @@
     :return true;
   }
 
-  :do {
+  :onerror Err {
     /file/remove $Dir;
-  } on-error={
-    $LogPrint error $0 ("Removing directory '" . $DirName . "' (" . $Dir . ") failed.");
+  } do={
+    $LogPrint error $0 ("Removing directory '" . $DirName . "' (" . $Dir . ") failed: " . $Err);
     :return false;
   }
   :return true;