Index: openacs-4/packages/acs-content-repository/tcl/test/content-keyword-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-keyword-test-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-content-repository/tcl/test/content-keyword-test-procs.tcl	20 Mar 2005 13:41:50 -0000	1.1
+++ openacs-4/packages/acs-content-repository/tcl/test/content-keyword-test-procs.tcl	10 Jan 2007 21:22:03 -0000	1.2
@@ -26,7 +26,7 @@
             # check that keyword_id, heading, description
             # are set correctly
             aa_true "Keyword_id assigned" \
-                [expr $assigned_keyword_id == $keyword_id]
+                [expr {$assigned_keyword_id == $keyword_id}]
             aa_true "Keyword heading set" \
                 [string equal "--test_keyword" [content::keyword::get_heading -keyword_id $keyword_id]]
             aa_true "Keyword description set" \