Index: openacs-4/packages/dotlrn/tcl/class-applets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-applets-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/class-applets-procs.tcl	23 Oct 2002 12:38:38 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/class-applets-procs.tcl	1 Nov 2013 21:08:30 -0000	1.6
@@ -82,7 +82,7 @@
 	set list_of_callbacks [lindex $applet 2]
 
 	foreach callback $list_of_callbacks {
-	    if {[string equal [lindex $callback 0] $callback_name]} {
+	    if {[lindex $callback 0] eq $callback_name} {
 		eval [lindex $callback 1] $args
 	    }
 	}