diff --git a/extra/mason/help/help.factor b/extra/mason/help/help.factor
index 1e3e1509c9..c9ca50f0c2 100644
--- a/extra/mason/help/help.factor
+++ b/extra/mason/help/help.factor
@@ -16,8 +16,11 @@ IN: mason.help
     help-directory get "/docs.tar.gz" append
     upload-safely ;
 
-: upload-help ( -- )
+: (upload-help) ( -- )
     upload-help? get [
         make-help-archive
         upload-help-archive
     ] when ;
+
+: upload-help ( -- )
+    status get status-clean eq? [ (upload-help) ] when ;