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.23 -r1.24
--- openacs-4/packages/bug-tracker/www/patch.tcl	27 Jun 2015 18:01:15 -0000	1.23
+++ openacs-4/packages/bug-tracker/www/patch.tcl	8 May 2016 13:05:24 -0000	1.24
@@ -468,9 +468,10 @@
         }
         set action_id [db_nextval "acs_object_id_seq"]
 
-        foreach column { description desc_format } {
-            set $column [element get_value patch $column]
-        }
+	set description [element get_value patch $description]
+	if {[info exists desc_format]} {
+	    set desc_format [element get_value patch $desc_format]
+	}
 
         set action $mode
         db_dml patch_action {}