Index: openacs-4/packages/bug-tracker/bug-tracker.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/bug-tracker.info,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/bug-tracker/bug-tracker.info	25 Apr 2014 09:33:45 -0000	1.32
+++ openacs-4/packages/bug-tracker/bug-tracker.info	24 Jun 2015 09:29:44 -0000	1.33
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="1.6d3" url="http://openacs.org/repository/download/apm/bug-tracker-1.6d3.apm">
+    <version name="1.6d4" url="http://openacs.org/repository/download/apm/bug-tracker-1.6d4.apm">
         <owner url="mailto:lars@collaboraid.biz">Lars Pind</owner>
         <summary>Tracks bugs and features, versions and maintainers, in software projects.</summary>
         <release-date>2011-06-12</release-date>
@@ -18,10 +18,10 @@
         Contains the best of SDM, Bugzilla, FogBUGZ, and bughost.com.</description>
         <maturity>0</maturity>
 
-        <provides url="bug-tracker" version="1.6d3"/>
+        <provides url="bug-tracker" version="1.6d4"/>
         <requires url="acs-content-repository" version="5.2.0d2"/>
         <requires url="acs-kernel" version="5.2.0d2"/>
-        <requires url="acs-tcl" version="5.2.0d1"/>
+        <requires url="acs-tcl" version="5.8.3d3"/>
         <requires url="notifications" version="5.0.0b4"/>
         <requires url="workflow" version="2.0.0b3"/>
 
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	23 Jun 2015 16:05:05 -0000	1.45
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	24 Jun 2015 09:29:44 -0000	1.46
@@ -124,8 +124,8 @@
         f_state:integer,optional
         f_fix_for_version:integer,optional
         f_component:integer,optional
-        orderby:optional
-        {format "table"}
+        orderby:token,optional
+        {format:word "table"}
     }
     foreach { parent_id parent_heading } [bug_tracker::category_types] {
         lappend filter_vars "f_category_$parent_id:naturalnum,optional"
Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/bug-tracker/www/bug.tcl	14 Oct 2013 18:14:22 -0000	1.41
+++ openacs-4/packages/bug-tracker/www/bug.tcl	24 Jun 2015 09:29:44 -0000	1.42
@@ -7,7 +7,7 @@
 } [bug_tracker::get_page_variables {
     bug_number:integer,notnull
     {user_agent_p:boolean 0}
-    {show_patch_status open}
+    {show_patch_status:word open}
 }]
 
 #####
Index: openacs-4/packages/bug-tracker/www/patch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/bug-tracker/www/patch.tcl	14 Oct 2013 18:14:22 -0000	1.19
+++ openacs-4/packages/bug-tracker/www/patch.tcl	24 Jun 2015 09:29:44 -0000	1.20
@@ -14,7 +14,7 @@
     delete:optional    
     reopen:optional
     comment:optional
-    download:optional
+    download:boolean,optional
 }
 
 # Assert read permission (should this check be in the request processor?)
@@ -32,7 +32,7 @@
 set write_or_submitter_p [expr {$write_p || $user_is_submitter_p}]
 set project_name [bug_tracker::conn project_name]
 set package_key [ad_conn package_key]
-set view_patch_url "[ad_conn url]?[export_vars -url { patch_number }]"
+set view_patch_url [export_vars -base [ad_conn url] { patch_number }]
 set patch_status [db_string patch_status {}]
 
 # Is this project using multiple versions?
Index: openacs-4/packages/bug-tracker/www/send-summary-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/send-summary-email.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/bug-tracker/www/send-summary-email.tcl	23 Jun 2015 16:05:06 -0000	1.4
+++ openacs-4/packages/bug-tracker/www/send-summary-email.tcl	24 Jun 2015 09:29:44 -0000	1.5
@@ -13,7 +13,7 @@
     return_url:optional
 }
 
-set title "[_ bug-tracker.Send_Summary_Email]"
+set title [_ bug-tracker.Send_Summary_Email]
 set context [list $title]
 set package_id [ad_conn package_id]
 set user_id [auth::require_login]
@@ -24,7 +24,7 @@
 }
 
 if {![llength $bug_id]} {
-    ad_returnredirect -message "[_ bug-tracker.No_selected_bugs]" $return_url
+    ad_returnredirect -message [_ bug-tracker.No_selected_bugs] $return_url
     ad_script_abort
 } elseif {[llength $bug_id] == 1} {
     set bug_id [split [lindex $bug_id 0]]
@@ -44,7 +44,7 @@
         lappend error_inform_text_list "[_ bug-tracker.send_email_error] [_ bug-tracker.Bug_not_found_2]"
     } else {
         bug_tracker::bug::get -bug_id $one_bug_id -array bug_info
-        lappend success_inform_text_list "[_ bug-tracker.send_email_success_inform]"
+        lappend success_inform_text_list [_ bug-tracker.send_email_success_inform]
     }
 }
 
@@ -70,7 +70,7 @@
 
     set p_keyword_id 0
     foreach {keyword_id keyword_label} [bug_tracker::category_types -package_id $package_id] {
-        if {$keyword_label eq "[_ bug-tracker.Priority]"} {
+        if {$keyword_label eq [_ bug-tracker.Priority]} {
             set p_keyword_id $keyword_id
         }
     }
@@ -117,7 +117,7 @@
     acs_mail_lite::send \
         -to_addr $final_recipient_list \
         -from_addr $sender_email \
-        -subject "[_ bug-tracker.send_summary_email_subject]" \
+        -subject [_ bug-tracker.send_summary_email_subject] \
         -body $html_content \
         -mime_type "text/html"