Index: openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/05-doc-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl	15 Dec 2005 12:16:34 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl	30 Dec 2005 00:04:44 -0000	1.5
@@ -58,7 +58,7 @@
       #set kind [expr {[my istype ::xotcl::Class] ? "Class" : "Object"}]
       #return "$scope$kind [self]"
       set script [info script]
-      if {[string equal "" $script] && [info exists ::xotcl::currentScript]} {
+      if {$script eq "" && [info exists ::xotcl::currentScript]} {
 	set script $::xotcl::currentScript
       }
       set root_dir [nsv_get acs_properties root_directory]
@@ -84,7 +84,7 @@
       return "$scope$kind $obj"
 
     } -proc proc_index {scope obj instproc proc_name} {
-      if {[string equal "" $scope]} {
+      if {$scope eq ""} {
 	return "$obj $instproc $proc_name"
       } else {
 	return "$scope $obj $instproc $proc_name"