
% Very ugly way to get the version date
test:-  unix(system('echo -n ''v_d("'' > /tmp/press.d.tmp;date >> /tmp/press.d.tmp;echo ''").'' >> /tmp/press.d.tmp')),
	open('tmp/press.d.tmp',read,Stream),
	read(Stream,v_d(StringDate)),
	close(Stream),
	append(SD,[_],StringDate),
	!,
	name(Date,SD),
	assert(version_date(Date,SD)),
	unix(system('rm /tmp/press.d.tmp')).

