(def date ((o time (seconds)))
(let val (tostring (system (string "date -u -r " time " \"+%Y-%m-%d\""))) (subseq val 0 (- (len val) 1))))
But it probably doesn't explain the error: "Error: "tcp-listen: listen on 80 failed" which only seems to appear in \lib\libmzsch352_000.dll
So, toast then?