replaced use of (do) with (progn) because (do) is not supported in XEmacs