From c94595ed3aaee8a43dae356d8b56bc9146bb36cb Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Thu, 22 Jun 1995 00:20:47 +0000
Subject: [PATCH] (update_scalar): bug fix.

---
 globals_list.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/globals_list.tcl b/globals_list.tcl
index be9a3ff..93f3865 100644
--- a/globals_list.tcl
+++ b/globals_list.tcl
@@ -52,7 +52,8 @@ dialog variable_trace {
 	send $slot(target) \
 	    [list trace vdelete $slot(variable) wu $slot(trace_cmd)]
     }
-    method update_scalar {name op} {
+    method update_scalar {args} {
+	set op [lindex $args end]
 	if {$op == "w"} {
 	    $self.t insert end-1c \
 		[list set $slot(variable) \
-- 
2.23.0