From ec2c95ca07fba7c45068ceb31b9d873a81adc679 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Sat, 12 Oct 2024 16:41:58 +0300
Subject: [PATCH] Fixed v3 value scanning

---
 armagedec.tcl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/armagedec.tcl b/armagedec.tcl
index 28c7d11..7cfbab8 100755
--- a/armagedec.tcl
+++ b/armagedec.tcl
@@ -359,9 +359,7 @@ proc fullscanscheme {version} {
     if {$size eq 1} {set fmt cu}
     if {$size eq 2} {set fmt s}
     if {$size eq 4} {set fmt i}
-    catch {
-      binary scan [string range $rawschemedata [expr {$offs + $size}]] $fmt wscval
-    }
+    binary scan [string range $rawschemedata $offs [expr {$offs + $size}]] $fmt wscval
     if {([llength $valopt] > 1) && ([lindex $valopt 0] eq "spec")} {
       set readfunc "[lindex $valopt 1]_read"
       set wscval [$readfunc $wscval]
@@ -427,7 +425,7 @@ proc savescheme {fname} {
   if {$diffbytes > 0} { # expand with nulls
     set rawschemedata [string cat $rawschemedata [binary format x$diffbytes]]
   } else { # truncate
-    set rawschemedata [string range $rawschemedata 0 [expr {$datasize - 1}]
+    set rawschemedata [string range $rawschemedata 0 [expr {$datasize - 1}]]
   }
   # write the version itself 
   set binval [binary format cu $wsc_data(version)]