Index: openacs-4/packages/acs-api-browser/www/proc-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-api-browser/www/proc-view.adp	15 Aug 2003 14:45:24 -0000	1.8
+++ openacs-4/packages/acs-api-browser/www/proc-view.adp	2 May 2005 21:13:45 -0000	1.9
@@ -11,10 +11,10 @@
 </table>
 
 <if @source_p@ eq 0>
-[ <a href="proc-view?proc=@proc@&amp;source_p=1">show source</a> ]
+[ <a href="proc-view?proc=@proc@&amp;source_p=1&amp;version_id=@version_id@">show source</a> ]
 </if>
 <else>
-[ <a href="proc-view?proc=@proc@&amp;source_p=0">hide source</a> ]
+[ <a href="proc-view?proc=@proc@&amp;source_p=0&amp;version_id=@version_id@">hide source</a> ]
 </else>
 
 <if @source_p@ ne @default_source_p@> 
Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-api-browser/www/proc-view.tcl	28 Apr 2005 18:45:40 -0000	1.5
+++ openacs-4/packages/acs-api-browser/www/proc-view.tcl	2 May 2005 21:13:53 -0000	1.6
@@ -30,7 +30,7 @@
 lappend context [list $proc]
 
 set default_source_p [ad_get_client_property -default 0 acs-api-browser api_doc_source_p]
-set return_url [ns_urlencode [ad_conn url]?[export_url_vars proc]]
+set return_url [ns_urlencode [ad_conn url]?[export_url_vars proc version_id]]
 set error_msg ""
 
 if { ![info exists source_p] } {