Index: openacs-4/packages/new-portal/tcl/datasource-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/datasource-procs.tcl,v
diff -u -r1.4 -r1.4.18.1
--- openacs-4/packages/new-portal/tcl/datasource-procs.tcl	29 Jun 2003 23:30:49 -0000	1.4
+++ openacs-4/packages/new-portal/tcl/datasource-procs.tcl	6 Sep 2014 19:38:10 -0000	1.4.18.1
@@ -73,7 +73,7 @@
 
                 if { ![regexp {^([^ \t:]+)(?::([a-zA-Z0-9_,(|)]*))} \
                            $param match param_name flags] } {
-                    ad_return -code error "Parameter name '$param' doesn't have the right format. It must be var\[:flag\[,flag ...\]\]"
+                    return -code error "Parameter name '$param' doesn't have the right format. It must be var\[:flag\[,flag ...\]\]"
                 }
 
                 # set defaults for attributes
@@ -85,7 +85,7 @@
                     switch -exact $flag {
                         configured { set configured_p t }
                         config_required { set config_required_p t}
-                        default { ad_return -code error "\"$flag\" is not a legal portal datasource attribute" }
+                        default { return -code error "\"$flag\" is not a legal portal datasource attribute" }
                     }
                 }