Index: openacs-4/packages/dotlrn-homework/www/dotlrn-homework-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/dotlrn-homework-portlet.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-homework/www/dotlrn-homework-portlet.tcl	13 Jan 2005 13:57:29 -0000	1.2
+++ openacs-4/packages/dotlrn-homework/www/dotlrn-homework-portlet.tcl	27 Oct 2014 16:41:20 -0000	1.3
@@ -21,13 +21,13 @@
 
 if {$n_folders != 1} {
     # something went wrong, we can't have more than one folder here
-    ad_return -error
+    return -code error "can't have more than one folder"
 }
 set folder_id [lindex $list_of_folder_ids 0]
 
 # Make sure our visitor can read the folder.
 if { ![permission::permission_p -object_id $folder_id -privilege "read"] } {
-    ad_return -error
+    return -code error "visitor can't read folder"
 }
 
 # No need to do any more work if the shade's pulled up
@@ -51,7 +51,7 @@
     # student's files
     set max_level $min_level
 } else {
-    set max_level [expr $min_level + 1]
+    set max_level [expr {$min_level + 1}]
 }
 
 ad_return_template