swish/commit

Updated from upstream

diff --git a/lib/swish/storage.pl b/lib/swish/storage.pl
index 5a9f6a1..fe629c6 100644
--- a/lib/swish/storage.pl
+++ b/lib/swish/storage.pl
@@ -83,6 +83,9 @@ web_storage(Request) :-
 	option(method(Method), Request),
 	storage(Method, Request).
 
+:- multifile
+	swish_config:authenticate/2.
+
 storage(get, Request) :-
 	(   swish_config:authenticate(Request, User)
 	->  Options = [user(User)]
diff --git a/lib/swish/swish_debug.pl b/lib/swish/swish_debug.pl
index 0970bf8..c7b310e 100644
--- a/lib/swish/swish_debug.pl
+++ b/lib/swish/swish_debug.pl
@@ -78,10 +78,12 @@ stale_module_property(M, pengine_queue, Queue) :-
 	pengines:pengine_queue(Pengine, Queue, _TimeOut, _Time).
 stale_module_property(M, pengine_pending_queue, Queue) :-
 	pengine_property(Pengine, module(M)),
-	clause(pengines:output_queue(Pengine, Queue, _Time), true).
+	member(G, [pengines:output_queue(Pengine, Queue, _Time)]),
+	call(G).		% fool ClioPatria cpack xref
 stale_module_property(M, thread, Thread) :-
 	pengine_property(Pengine, module(M)),
-	clause(pengines:pengine_property(Pengine, thread(Thread)), true).
+	member(G, [pengines:pengine_property(Pengine, thread(Thread))]),
+	call(G).		% fool ClioPatria cpack xref
 stale_module_property(M, thread_status, Status) :-
 	pengine_property(Pengine, module(M)),
 	pengine_property(Pengine, thread(Thread)),