;; TODO: support usecond wait time too
(match (get-wait-time)
((sec . usec)
- (catch 'system-error
+ (catch #t ; expect: wrong-type-arg (open port), system-error
(lambda ()
(select (hash-keys (agenda-read-port-map agenda))
(hash-keys (agenda-write-port-map agenda))