aers_rewrite/commit

fix file loading

author	Michiel Hildebrand
	Mon Jan 14 17:09:23 2013 +0100
committer	Michiel Hildebrand
	Mon Jan 14 17:09:23 2013 +0100
commit	22427e98f0c9b27843cadf9d27e1fbaa71b0037f
tree	6672b5e1d93e1a6ed3524291268108786e23633c
parent	e915cc04a77cd111c9eda5a0b3ffefa4a1a9bbcc

Diff style: patch stat

diff --git a/lib/aers_rewrite.pl b/lib/aers_rewrite.pl
index eb80914..1eaede5 100644
--- a/lib/aers_rewrite.pl
+++ b/lib/aers_rewrite.pl
@@ -22,7 +22,8 @@ load :-
 	absolute_file_name(data(sgml), Dir,
 			   [ file_type(directory)
 			   ]),
-	expand_file_name(Dir, Files),
+	atom_concat(Dir, '/*.SGM', Pattern),
+	expand_file_name(Pattern, Files),
 	maplist(load, Files).
 
 load_year(Year) :-