- if info.D.state <> D.InfoShutoff then
- printf "%8d %-20s %s\n%!"
- (D.get_id dom) (D.get_name dom) (string_of_state info.D.state)
+ let id = D.get_id dom in
+ let name = D.get_name dom in
+ let state = string_of_state info.D.state in
+ if id >= 0 then
+ printf "%8d %-20s %s\n%!" id name state