$OpenBSD: patch-src-other_procedures_tcl,v 1.2 2008/11/10 20:18:14 steven Exp $
--- src/other_procedures.tcl.orig	Fri Feb  2 13:25:32 2007
+++ src/other_procedures.tcl	Mon Nov 10 19:49:54 2008
@@ -177,13 +177,13 @@ proc launch {burn_type burn_opt} {
 		}
 	} elseif { $burn_type == "create_iso" } {
 		# burn_opt contains destination file for ISO image
-		if {[catch {open "|dd if=$burning_device of=$burn_opt |& cat"} input]} {
+		if {[catch {open "|dd bs=2048 if=$burning_device of=$burn_opt |& cat"} input]} {
 			#one blank line to increase readability
-			.output_window.f_main.log insert end "dd if=$burning_device of=$burn_opt\n\n"
+			.output_window.f_main.log insert end "dd bs=2048 if=$burning_device of=$burn_opt\n\n"
 		} else {
 			fileevent $input readable log_proc
 			#one blank line to increase readability
-			.output_window.f_main.log insert end "dd if=$burning_device of=$burn_opt\n\n"
+			.output_window.f_main.log insert end "dd bs=2048 if=$burning_device of=$burn_opt\n\n"
 		}
 	} elseif { $burn_type == "erase_dvd" } {
 		# $burn_opt= "" or "force" or "blank"
