Index: openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	28 Aug 2003 09:41:43 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	6 Nov 2003 17:06:37 -0000	1.3
@@ -115,15 +115,15 @@
   # look for the files we need.  If they aren't there, we can't do anything
   # and will just return the message as-is (cringe)
   set source_dir [acs_root_dir]/packages/acs-tcl/tcl
-  if { ![file exists $source_dir/base64.tcl] || 
-       ![file exists $source_dir/md5.tcl] ||
-       ![file exists $source_dir/mime.tcl] } {
+  if { ![file exists $source_dir/base64-procs.tcl] || 
+       ![file exists $source_dir/md5-procs.tcl] ||
+       ![file exists $source_dir/mime-procs.tcl] } {
     return $message
   }
 
-  source $source_dir/base64.tcl
-  source $source_dir/md5.tcl
-  source $source_dir/mime.tcl
+  source $source_dir/base64-procs.tcl
+  source $source_dir/md5-procs.tcl
+  source $source_dir/mime-procs.tcl
   package require mime
 
   set mime [mime::initialize -string $message]