Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/tcl/chat-procs.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	30 Sep 2003 12:10:05 -0000	1.2
@@ -202,7 +202,7 @@
 } {
     db_exec_plsql delete_room {
 	begin
-	    chat_room.delete(:room_id);
+	    chat_room.del(:room_id);
 	end;
     }
 }
@@ -520,7 +520,7 @@
 } {
     db_exec_plsql delete_transcript {
 	begin
-	chat_transcript.delete(:transcript_id);
+	chat_transcript.del(:transcript_id);
 	end;
     }
 }