cluster_search/commit

Reinstated the stripping of alignments in cluster path abstraction, should be tested.

diff --git a/api/cluster_search.pl b/api/cluster_search.pl
index 7b256d7..1e01202 100644
--- a/api/cluster_search.pl
+++ b/api/cluster_search.pl
@@ -143,13 +143,12 @@ abstract_path(path, [R|Rest0], Path) :-
 
 abstract_path(spath, Path, SPath) :- !,
     (Path = [R]
-    -> iface_abstract_class(R, Class),
+    -> cluster_abstract_class(R, Class),
     SPath = [Class]
     ; strip_alignment(Path, Path1),
     schema_path(Path1, SPath0),
     canonical_path(SPath0, SPath)
-    ),
-    debug(spath, 'schema level path: ~p', [SPath]).
+    ).
 
 %%	cluster_abstract_class(+Class, -Abstract) is det.
 %
diff --git a/lib/cluster_search/rdf_cluster.pl b/lib/cluster_search/rdf_cluster.pl
index b8175cc..21171ee 100644
--- a/lib/cluster_search/rdf_cluster.pl
+++ b/lib/cluster_search/rdf_cluster.pl
@@ -75,12 +75,11 @@ direct_path(_, other).
 
 strip_alignment([], []).
 strip_alignment([One], [One]) :- !.
-/*
+
 strip_alignment([_O1, P, O2|T0], T) :-
 	alignment_predicate(P), !,
-	instance_search:representative(O2, Represent),
-	strip_alignment([Represent|T0], T).
-*/
+	strip_alignment([O2|T0], T).
+
 strip_alignment([O,P|T0], [O,P|T]) :-
 	strip_alignment(T0, T).