stuff

library/expand_macros.yap

@@ -499,6 +499,10 @@ contains_illegal_dcgnt(NT) :-
 %	write(contains_illegal_nt(NT)),		% JW: we do not want to write
 %	nl.
 
+'$expand':allowed_expansion(QExpand) :-
+    strip_module(QExpand, Mod, Pred),
+    goal_expansion_allowed(Pred, Mod).
+
 goal_expansion_allowed(Pred, Mod) :-
 	allowed_module(Pred,Mod),
 	once( prolog_load_context(_, _) ), % make sure we are compiling.

misc/sysgraph

@@ -264,7 +264,8 @@ pl_interfs(Dir - Mod) :-
     atom_concat([Dir,'/',File], Path),
     ( ( sub_atom(File,_,_,0,'.yap') ; sub_atom(File,_,_,0,'.pl') ) ->
 	  ops_restore,
-	 pl_interf( Path , Mod )
+	  absolute_file_name( Path, APath ),
+	  pl_interf( APath , Mod )
     ;
          exists_directory( Path ),
          \+ atom_concat(_, '/.', Path),