From bece2176c0308690a8ad931c815bd544a7249fdf Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 4 Jul 2008 13:48:16 +0000
Subject: [PATCH] fix to peek command.

git-svn-id: svn://svn.berlios.de/openocd/trunk@747 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/commands.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index f42047f7f7..d671d78606 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -1,6 +1,6 @@
 # implements Tcl procedures/functions
 proc peek {address} {
-	return [openocd mdw $address]
+	return [openocd_throw "mdw $address"]
 }
 
 # Production command
-- 
2.30.2