Index: openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl	31 Jan 2003 06:27:32 -0000	1.2
+++ openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl	10 Feb 2003 05:22:34 -0000	1.3
@@ -169,11 +169,11 @@
                                    -package_id $package_id \
                                    -default ""]"
                         set log_latest_revision_id [etp::get_latest_revision_id $parent_package_id $date]
+                        set content_type [etp::get_content_type]
                         if {[empty_string_p $log_latest_revision_id]} {
 
                             # Create a new ETP page for the log.
 
-                            set content_type [etp::get_content_type]
                             db_exec_plsql page_create {}
                         }
 
@@ -182,6 +182,10 @@
                         set log_live_revision_id [etp::get_live_revision_id $parent_package_id $date]
                         set log_description "Conversation log of $irc_channel_name of $date"
                         db_dml update_revision {}
+
+                        # Flush the cached page from memory
+
+                        util_memoize_flush "etp::get_pa $parent_package_id $date $content_type"
                     }
                 }
             }