based on $jr/vsuite/misc/dha/2
