Index: openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl,v
diff -u -N -r1.3.18.1 -r1.3.18.2
--- openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl	18 Aug 2014 21:53:43 -0000	1.3.18.1
+++ openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl	18 Aug 2014 21:56:34 -0000	1.3.18.2
@@ -37,8 +37,8 @@
     }
 
     # The get routines return a list of name/id pairs so extract the ids
-    set interval_id [lindex [lindex $intervals 0] 1]
-    set delivery_method_id [lindex [lindex $delivery_methods 0] 1]
+    set interval_id [lindex $intervals 0 1]
+    set delivery_method_id [lindex $delivery_methods 0 1]
 
     # Add the alert
     notification::request::new -type_id $type_id -user_id [ad_conn user_id] -object_id $folder_id \