From 228064d752783de516994b2e38d7bca59507eefc Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.(none)>
Date: Thu, 4 Jun 2009 00:57:25 +0100
Subject: [PATCH] fix nybbleswap

---
 pctb/show-thing.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index 142ab42..3d42218 100755
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -245,7 +245,7 @@ proc recursor/text {} {
     pack .d.csr.csr.e -side left
     focus .d.csr.csr.e
     bind_key Return {
-	binary scan [.d.csr.csr.e get] h* hex
+	binary scan [.d.csr.csr.e get] H* hex
 	if {[string length $hex]} {
 	    RETURN_RESULT DEFINE "$cur_0 $cur_1 $hex"
 	}
@@ -348,7 +348,7 @@ proc write_database {} {
     set ol {}
     foreach bm [array names database] {
 	set strh $database($bm)
-	set strs [binary format h* $strh]
+	set strs [binary format H* $strh]
 	set strdo [format "%d %s" [expr {[string length $strh]/2}] $strh]
 	set o "[lindex $bm 0] $strdo\n"
 	append o [format "%d\n" [expr {[llength $bm]-1}]]
-- 
2.30.2