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 -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	17 May 2003 10:04:18 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	28 Aug 2003 09:41:43 -0000	1.7
@@ -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"
            }