From: cas <cas@opencascade.com>
Date: Mon, 21 Aug 2000 18:15:52 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=d651d7fbcc3747c13dd99ceff5dde3177b3f4a30;p=occt-wok.git

No comments
---

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