diff --git a/src/tcl/memory.tcl b/src/tcl/memory.tcl
index 1f90ef2c208303c91a137205e2a4015767bc337d..5ac3c4bd87522c373179a0ed6f43289e977176f5 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)