Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	5 Mar 2003 14:40:42 -0000	1.4.2.1
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	7 Jun 2003 01:47:32 -0000	1.4.2.2
@@ -5,7 +5,7 @@
     @author Various [acs@arsdigita.com]
     @author Rob Mayoff <mayoff@arsdigita.com>
     @creation-date 2000-10-19
-    @cvs-id $Id$
+    @cvs-id memoize-procs.tcl,v 1.4.2.1 2003/03/05 14:40:42 lars Exp
 }
 
 # Use shiny new ns_cache-based util_memoize.
@@ -161,7 +161,7 @@
        if $log_p {
            ns_log Notice "flush_regexp: checking $name for $expr"
        }
-       if [regexp $expr $name] {
+       if { [regexp $expr $name] } {
            if $log_p {
                ns_log Notice "flush_regexp: flushing $name"
            }