(define (read-profile name)
	(catch #t
		(thunk (call-with-input-file (string-append "/etc/alterator/apt.d/" name) read))
		(lambda args '(error "unable to read profile"))))

(object #f ((list self objects options) (read-profile (car objects))))
