Index: openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl	12 Sep 2013 20:29:36 -0000	1.5
+++ openacs-4/packages/faq/www/admin/q_and_a-new-2.tcl	3 Oct 2013 09:08:36 -0000	1.5.2.1
@@ -23,7 +23,7 @@
 set user_id [ad_conn user_id]
 set creation_ip [ad_conn host]
 
-if {$insert_p == "t" } {
+if {$insert_p eq "t" } {
 
   
 
@@ -43,7 +43,7 @@
 
     db_dml faq_update $sql_update_q_and_as
     
-    set sort_key [expr $old_sort_key + 1]
+    set sort_key [expr {$old_sort_key + 1}]
     
     set entry_id [db_nextval acs_object_id_seq]
     }