Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -r1.2.2.3 -r1.2.2.4
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	20 Mar 2003 16:40:06 -0000	1.2.2.3
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	28 Mar 2003 13:49:27 -0000	1.2.2.4
@@ -278,7 +278,7 @@
     @return 3-tuple of url, label and title.
 } {
     set user_id [ad_conn user_id]
-    set return_url [util_get_current_url]
+    set return_url [ad_return_url]
     
     # Get the type id
     set type "workflow_case"