Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl,v
diff -u -N -r1.5 -r1.5.8.1
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	8 Aug 2006 21:26:36 -0000	1.5
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	18 Aug 2014 21:56:33 -0000	1.5.8.1
@@ -305,8 +305,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 $homework_file_id \