diff --git a/src/flash/startup.tcl b/src/flash/startup.tcl
index fcebbe01a..2c335d9f7 100644
--- a/src/flash/startup.tcl
+++ b/src/flash/startup.tcl
@@ -5,7 +5,7 @@
 proc flash_banks {} {
 	set i 0
 	set result ""
-	foreach {a} [ocd_flash_banks] {
+	foreach {a} [ocd_flash banks] {
 		if {$i > 0} {
 			set result "$result\n"
 		}