From d651d7fbcc3747c13dd99ceff5dde3177b3f4a30 Mon Sep 17 00:00:00 2001 From: cas Date: Mon, 21 Aug 2000 18:15:52 +0000 Subject: [PATCH] No comments --- src/WOKTclLib/wokprocs.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/WOKTclLib/wokprocs.tcl b/src/WOKTclLib/wokprocs.tcl index ad6313f..882cb77 100755 --- a/src/WOKTclLib/wokprocs.tcl +++ b/src/WOKTclLib/wokprocs.tcl @@ -201,7 +201,7 @@ proc wok_setenv_proc {var value} { if { $IWOK_GLOBALS(term,started) } { # First Initialize Variable - set len [clength $value] + set len [string length $value] set debut 0 set i $limit -- 2.39.5