Index: openacs-4/packages/static-pages/tcl/static-pages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/static-pages/tcl/static-pages-procs.tcl	19 Dec 2001 21:13:57 -0000	1.10
+++ openacs-4/packages/static-pages/tcl/static-pages-procs.tcl	6 Sep 2002 12:02:27 -0000	1.11
@@ -80,16 +80,7 @@
 		    }]
 		    # If the folder doesn't exist, create it.
 		    if { $folder_id == 0} {
-			set folder_id [db_exec_plsql create_new_folder {
-			    begin
-				    :1 := static_page.new_folder (
-					    name	=> :directory,
-					    label	=> :directory,
-					    parent_id	=> :parent_folder_id,
-					    description	=> 'Static pages folder'
-				    );
-			    end;
-			}]
+			set folder_id [db_exec_plsql create_new_folder {}]
 			if { [string length $folder_add_proc] > 0 } {
 			    uplevel "$folder_add_proc $cumulative_path $folder_id"
 			}