Index: openacs-4/packages/jabber/www/admin/remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/jabber/www/admin/remove.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/jabber/www/admin/remove.tcl	20 Oct 2004 19:36:50 -0000	1.1
+++ openacs-4/packages/jabber/www/admin/remove.tcl	28 Mar 2018 23:36:17 -0000	1.2
@@ -33,7 +33,7 @@
 
     # delete rows from the database
 
-    for { set i 0 } {$i <= [llenght $user_screen_ids] - 1} {incr i} {
+    for { set i 0 } {$i <= [llength $user_screen_ids] - 1} {incr i} {
 
 	set user_screen_id [lindex $user_screen_ids $i]