Index: openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl,v
diff -u -N -r1.10 -r1.10.8.1
--- openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl	8 Aug 2006 21:26:46 -0000	1.10
+++ openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl	3 Oct 2013 09:08:36 -0000	1.10.8.1
@@ -87,11 +87,11 @@
 	db_transaction {
 	    set old_sort_key [db_string faq_sortkey_get "select sort_key from faq_q_and_as where entry_id = :last_entry_id" -default 0]
 
-	    if ![string equal $old_sort_key 0] {
+	    if {$old_sort_key ne "0" } {
 		set sql_update_q_and_as "update faq_q_and_as set sort_key = sort_key + 1 where sort_key > :old_sort_key"
 
 		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}]
 	    } else {
 		set sort_key $entry_id
 	    }
@@ -128,11 +128,11 @@
 
             set old_sort_key [db_string faq_sortkey_get "select sort_key from faq_q_and_as where entry_id = :last_entry_id" -default 0]
 
-            if ![string equal $old_sort_key 0] {
+            if {$old_sort_key ne "0" } {
                 set sql_update_q_and_as "update faq_q_and_as set sort_key = sort_key + 1 where sort_key > :old_sort_key"
 
                 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}]
             } else {
                 set sort_key $entry_id
             }