diff --git a/src/flash/flash.c b/src/flash/flash.c
index 8224e50f46fd4eaaf99a4300998ce1692132708b..b51db58c3c8a00b2da20667c34332f25ad7d78cc 100644
--- a/src/flash/flash.c
+++ b/src/flash/flash.c
@@ -164,10 +164,15 @@ static int Jim_Command_flash_banks(Jim_Interp *interp, int argc, Jim_Obj *const
 		Jim_Obj *elem=Jim_NewListObj(interp, NULL, 0);
 		
 
+		Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "name", -1));
 		Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, p->driver->name, -1));
+		Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "base", -1));
 		Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->base));
+		Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "size", -1));
 		Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->size));
+		Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "bus_width", -1));
 		Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->bus_width));
+		Jim_ListAppendElement(interp, elem, Jim_NewStringObj(interp, "chip_width", -1));
 		Jim_ListAppendElement(interp, elem, Jim_NewIntObj(interp, p->chip_width));
 		
 	    Jim_ListAppendElement(interp, list, elem);
diff --git a/src/startup.tcl b/src/startup.tcl
index 1f1d1e214037916373639b03973b952312cca30c..5fe7c8fe73ffb0067c52a084721fdb4e12506d99 100644
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -46,7 +46,7 @@ proc flash_banks_pretty {} {
 		if {$i > 0} {
 			set result "$result\n"
 		}
-		set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i [lindex $a 0] [lindex $a 1] [lindex $a 2] [lindex $a 3] [lindex $a 4]]
+		set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i $a(name) $a(base) $a(size) $a(bus_width) $a(chip_width)]
 		set i [expr $i+1]	
 	}	
 	return $result