Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.16.2.14 -r1.16.2.15
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	26 Mar 2003 15:54:00 -0000	1.16.2.14
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	28 Mar 2003 13:49:00 -0000	1.16.2.15
@@ -687,7 +687,7 @@
                         lappend form_command [uplevel [list subst [lindex $extra_arg 1]]]
                     }
                     default {
-                        ns_log Error "Unknown switch '[lindex $extra_arg 0]' to ad_form on url [util_get_current_url]"
+                        ns_log Error "Unknown switch '[lindex $extra_arg 0]' to ad_form on url [ad_return_url]"
                     }
                 }
             }