diff --git a/src/target/target/at91eb40a.tcl b/src/target/target/at91eb40a.tcl
index ab6619c58..13ed0f824 100644
--- a/src/target/target/at91eb40a.tcl
+++ b/src/target/target/at91eb40a.tcl
@@ -45,5 +45,11 @@ proc target_reset_0 {} {
 	openocd {mww 0xffff0010 0x100}
 	openocd {mww 0xffff0034 0x100}
 	set reset_count [expr $reset_count+1]
-	puts "Testing reset $reset_count !"
+	echo "Testing reset $reset_count !"
+}
+
+proc target_pre_reset_0 {} {
+	global reset_count
+	set reset_count [expr $reset_count+1]
+	echo "Testing pre_reset $reset_count !"
 }
diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index d671d7860..81f7b6f10 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -4,6 +4,8 @@ proc peek {address} {
 }
 
 # Production command
+# FIX!!! need to figure out how to feed back relevant output
+# from e.g. "flash banks" command...
 proc board_produce {filename serialnumber} {
 	openocd "reset init"
 	openocd "flash write_image erase $filename [flash] bin"]]