diff --git a/src/tcl/memory.tcl b/src/tcl/memory.tcl
index 1f90ef2c2..5ac3c4bd8 100644
--- a/src/tcl/memory.tcl
+++ b/src/tcl/memory.tcl
@@ -96,7 +96,7 @@ proc memread16 {ADDR } {
     }
 }    
 
-proc memread82 {ADDR } {
+proc memread8 {ADDR } {
     set foo(0) 0
     if ![ catch { mem2array foo 8 $ADDR 1  } msg ] {
 	return $foo(0)