diff --git a/tcl/mem_helper.tcl b/tcl/mem_helper.tcl
index d8114908e..a3d92cb82 100644
--- a/tcl/mem_helper.tcl
+++ b/tcl/mem_helper.tcl
@@ -3,7 +3,7 @@
 # mrw: "memory read word", returns value of $reg
 proc mrw {reg} {
 	set value ""
-	ocd_mem2array value 32 $reg 1
+	mem2array value 32 $reg 1
 	return $value(0)
 }