[wam-allocate fix
Adrian Prantl <adrian@complang.tuwien.ac.at>**20090126192759] {
hunk ./compiler.fs 736
-s" :- concatenate([],X,X)." test-compile run-clause bye
+s" :- concatenate([],X,X)." test-compile run-clause
hunk ./compiler.fs 738
-s" :- concatenate([a,b],[c],X)." test-compile run-clause 
+s" :- concatenate([a,b],[c],X)." test-compile run-clause bye
}