No comments

diff --git a/src/WOKTclLib/wokprocs.tcl b/src/WOKTclLib/wokprocs.tcl
index ad6313f4fea42b7d0d62e98e478ef01e61ba7e01..882cb77120a7dd8a31a1289b1bbfcee9380b9d25 100755 (executable)
--- 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