(with-open-file (f "sys:imicro;news.text")
  (format t "~3&Read the file SYS:IMICRO;NEWS.TEXT for instructions (last updated ~\time\)."
	  (send f :get :creation-date)))

(si:set-system-source-file "IMICRO" "sys:imicro;imicro-sysdef")