Megatest

		   (exit 1))))
	   homehost-required))))

;;======================================================================
;; Misc setup stuff
;;======================================================================

(debug:setup (cond
(common:debug-setup)
	      ((args:get-arg "-debug-noprop") 'noprop)
	      ((args:get-arg "-debug")         #t)
	      (else #f)))

;; (if (args:get-arg "-logging")(set! *logging* #t))

;;(if (debug:debug-mode 3) ;; we are obviously debugging
;;    (set! open-run-close open-run-close-no-exception-handling))

(if (args:get-arg "-itempatt")