Index: openacs-4/packages/dotlrn-homework/www/dotlrn-homework-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/dotlrn-homework-admin-portlet.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-homework/www/dotlrn-homework-admin-portlet.tcl	17 Feb 2003 20:56:16 -0000	1.1
+++ openacs-4/packages/dotlrn-homework/www/dotlrn-homework-admin-portlet.tcl	27 Oct 2014 16:41:20 -0000	1.2
@@ -25,7 +25,7 @@
 
 if {$n_folders != 1} {
     # something went wrong, we can't have more than one folder here
-    ad_return -error
+    return -code error "more than one folder"
 }
 set folder_id [lindex $list_of_folder_ids 0]