From 965d7305e57b9b1a009af71368fcbf6da4e756a8 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <p.w.stephenson@ntlworld.com>
Date: Sat, 1 Mar 2014 21:27:47 +0000
Subject: 32453: fix zcalc default base handling

---
 Functions/Misc/zcalc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Functions')

diff --git a/Functions/Misc/zcalc b/Functions/Misc/zcalc
index 6a56d4782..b79644687 100644
--- a/Functions/Misc/zcalc
+++ b/Functions/Misc/zcalc
@@ -197,7 +197,7 @@ while (( expression_mode )) ||
   # Set default base if `[#16]' or `[##16]' etc. on its own.
   # Unset it if `[#]' or `[##]'.
   if [[ $line = (#b)[[:blank:]]#('[#'(\#|)((<->|)(|_|_<->))']')[[:blank:]]#(*) ]]; then
-    if [[ -z $match[4] ]]; then
+    if [[ -z $match[6] ]]; then
       if [[ -z $match[3] ]]; then
 	defbase=
       else
-- 
cgit 1.4.1