Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl	17 Feb 2002 13:53:31 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl	13 Mar 2002 22:50:53 -0000	1.6
@@ -188,8 +188,9 @@
     }
 
     default { 
-      # abort evaluation
-      error "Invalid operator <tt>$op</tt> in IF tag" 
+      # treat <if @foo_p@> as a shortcut for <if @foo_p@ true>
+      append condition "\[template::util::is_true $arg1\]"
+      set next [expr $i - 1]
     }
   }