cloud/commit

Hack to avoid getty VP schema creating links

diff --git a/lib/datacloud.pl b/lib/datacloud.pl
index 9b7a7e5..c007e0b 100644
--- a/lib/datacloud.pl
+++ b/lib/datacloud.pl
@@ -127,11 +127,13 @@ cloud_link(GSS, GTS, rdf(S,P,T)) :-
 	rdf(S, P, T), atom(T),
 	\+ rdf_is_bnode(S),
 	\+ rdf_is_bnode(T),
-	rdf(S, rdf:type, _, GS:_),
-	rdf(T, rdf:type, _, GT:_),
+	rdf(S, rdf:type, _ST, GS:_),
+	rdf(T, rdf:type, TT, GT:_),
 	GS \== GT,
-	graphset(GS,GSS),
-	graphset(GT,GTS),
+	\+ (rdf(T, rdf:type, TT, GU:_),	% Hack to deal with VP loaded in
+	    graphset(GU, GSS)),
+	graphset(GS, GSS),		% multiple getty vocabularies
+	graphset(GT, GTS),
 	GSS \== GTS.