Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Oct 2001 01:20:08 -0000	1.17
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Oct 2001 02:00:35 -0000	1.18
@@ -61,7 +61,6 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @creation-date 9/28/2001
 } {
-    # XXX - This dosen't work yet
     return [ db_exec_plsql delete_portal {
 	begin
 	portal.delete (portal_id => :portal_id);