Index: openacs-4/packages/acs-templating/www/doc/demo/contract-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/contract-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-templating/www/doc/demo/contract-2.tcl	10 Sep 2002 22:22:16 -0000	1.2
+++ openacs-4/packages/acs-templating/www/doc/demo/contract-2.tcl	10 Jan 2007 21:22:13 -0000	1.3
@@ -16,7 +16,7 @@
   phrase:onevalue
 } -return_errors error_list
 
-if [info exists error_list] {
+if {[info exists error_list]} {
   # divert to error-handling page
   ad_return_template "contract-err"
 } else {
@@ -25,7 +25,7 @@
   if {$count == 1} {
     append phrase "one $noun"
   } else {
-    if {[empty_string_p $plural]} {
+    if {$plural eq ""} {
       set plural "${noun}s"
     }
     append phrase "$count $plural"