Index: openacs-4/packages/dotlrn-homework/www/folder-contents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-contents.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn-homework/www/folder-contents.tcl	13 Jan 2005 13:57:29 -0000	1.4
+++ openacs-4/packages/dotlrn-homework/www/folder-contents.tcl	27 Oct 2014 16:41:21 -0000	1.5
@@ -10,7 +10,7 @@
     {max_level:integer ""}
 } -validate {
     valid_folder -requires {folder_id:integer} {
-	if ![fs_folder_p $folder_id] {
+	if {![fs_folder_p $folder_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_spec_parent]"
 	}
     }
@@ -28,7 +28,7 @@
 
 # Make sure our visitor can read and write to the folder.
 if { ![permission::permission_p -object_id $folder_id -privilege "read"] } {
-    ad_return -error
+    return -code error "visitor can't read folder"
 }
 
 set list_of_folder_ids [list $folder_id]